{* Задача 343 *}

Unit ZADACH343;
Interface
Implementation
Begin
 writeln('Разработать программу, в которой необходимо выполнить следующие действия:
описать новый тип – запись, состоящую из двух полей: Stroka Dlina; ввести с клавиатуры заданную последовательность символов и записать ее в переменную строкового типа; преобразовать строку в соответствии со своим вариантом; в поле записи Stroka переписать преобразованную строку, а в поле Dlina – длину этой строки; вывести содержимое полей записи на экран. Последовательность символов: abcdefgh. Преобразование: все строчные символы с четным номером заменить на прописные. ');
End.

Program zadach343;

Uses zadach343.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  zadanie = Record              stroka : String;
  dlina : integer;
  End;
Var {* Объявление переменных *}
  pole : zadanie;
  st   : String;
  i    : integer;
  n    : integer;
  c    : char;
  f    : text;
  Begin
  assign (f, 'lab5.txt'); {* Подключение к файлу 'lab5.txt' через переменную f *}
  rewrite (f); {* Запись в файл через переменную f *}
  clrscr; {* Стираем всё с экрана *}
  write ('Vvedite symbole=   ');
  readln (st);
  writeln; {* Пустая строка *}
  write (f, 'Vvedeno :     ', st, #13, #10, #10);
For i := 1 To length (st) Do {* Цикл для i => [1 .. length] *}
  If odd (i) = false Then
    st[i] := upcase (st[i]);
pole.stroka := st;
pole.dlina := length (st);
write ('Stroka ', '  Dlina   ');
write (#13, #10, #10, pole.stroka, '   ', pole.dlina);
write (f, 'Pole Stroka ', 'Pole Dlina   ');
write (f, #13, #10, #10, pole.stroka, '         ', pole.dlina);
readln; {* Приостановка программы. Ожидание Enter *}
close (f); {* Файл f будет закрыт *}
End.....