{* Запись без файла *}

Unit DANNIE;
Interface
Implementation
Begin
 writeln('Простая программа с использованием типа "ЗАПИСЬ", но без файла. Ввод ФИО студента, год рождения, курс и программа соответственно выводит их в таблице!');
End.

Program DANNIE;

Uses dannie.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
label 1;
Type {* Создание новых типов данных *}
  student = Record  fio : String;
  god_rojd, kurs : word;
  End;
Var {* В работе нам потребуются переменные: *}
  a : Array [1..30] Of student;
  i : byte;
  n : byte;
  p : integer;
  Begin
  1 :  clrscr; {* Очистка экрана *}
  writeln ('ВВЕДИТЕ КОЛЛИЧЕСТВО СТУДЕНТОВ:');
  readln (n);
For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
Begin
  write ('ВВЕДИТЕ Ф.И.О. СТУДЕНТА: ');
  readln (a[i].fio);
  write ('ВВЕДИТЕ ГОД РОЖДЕНИЯ СТУДЕНТА: ');
  readln (a[i].god_rojd);
  write ('ВВЕДИТЕ КУРС НА КОТОРОМ УЧИТСЯ СТУДЕНТ: ');
  readln (a[i].kurs);
End;
writeln; {* Пустая строка *}
writeln('                          __________________________________');
writeln(' ---------------------------------- ');
writeln('ФИО' : 30, '      ', 'ГОД РОЖДЕНИЯ' : 8, '      ', 'КУРС' : 4);
writeln(' ---------------------------------- ');
For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
Begin
  writeln(' ---------------------------------- ');
  writeln('ФИО' : 30, '      ', 'ГОД РОЖДЕНИЯ' : 8, '      ', 'КУРС' : 4);
  writeln(' ---------------------------------- ');
  }
  writeln(a[i].fio : 30, '      ', a[i].god_rojd : 8, '     ', a[i].kurs : 9);
End;
writeln ('ВЫХОД - 1, НАЧАТЬ ЗАНОВО - 2');
readln(p);
If (p = 1) Then
  exit
Else Goto 1;
  End......