{* Задача 185 *}

Unit ZADACH185;
Interface
Implementation
Begin
 writeln('Опишите запись с именем типа Baza, содержащую информацию для школьной базы : личный номер ученика (тип integer), ФИО (тип string), год рождения (integer), адрес (string). Переменную, опр. массив записей, назовите Inf. Заполнить массив записей и вывести его на экран. Необходимо заполнить массив записей и вывести его на экран.');
End.

Program example_3;

Uses zadach185.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  n = 2;
Type {* Используемые типы *}
  Baza = Record      Lichnyi_nomer : integer;
  FIO : String;
  God_rojdeniya : integer;
  Adres : String
  End;
Var {* В работе нам потребуются переменные: *}
  Inf : Array [1..n] Of Baza;
  Key : char;
  i   : 0..n;
  Begin
  i := 0;
Repeat      inc(i); {* Увеличиваем i на 1 *}
  clrscr; {* Очистка экрана *}
writeln('Kolichestvo nakoplennyh v baze shkolnikov: ', i - 1);
with Inf[i] Do
Begin
  write('Vvedite lichnyi nomer shkolnika: ');
  readln(Lichnyi_nomer);
  write('Vvedite FIO shkolnika: ');
  readln(FIO);
  write('Vvedite god rojdeniya: ');
  readln(God_rojdeniya);
  write('Vvedite adres shkolnika: ');
  readln(Adres)
End;
Until i = n;
clrscr; {* Очищаем экран *}
For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
Begin
  with Inf[i] Do
  Begin
    writeln('Lichnyi nomer: ', Lichnyi_nomer);
    writeln('FIO: ', FIO);
    writeln('God rojdeniya: ', God_rojdeniya);
    writeln('Adres: ', Adres)
  End;
  writeln('');
End;
readln; {* Приостановка программы. Ожидание Enter *}
End....