Студенты

program students;
uses crt;

type
student = record
      surname: string [80];
      name: string [30];
      middlename: string [30];
      god: 1900..2000;
      age: byte;
      telefon: string [20];
end;

var
a: array[1..30] of student;
i, n: integer;
age1: byte;

begin

writeln ('Введите число учеников (не более 30-и)');
readln (n);
clrscr;

for i:=1 to n do
begin
      writeln ('surname');
      readln (a[i].surname);
      writeln ('name');
      readln (a[i].name);
      writeln ('middlename');
      readln (a[i].middlename);
      writeln ('god');
      readln (a[i].god);
      writeln ('age');
      readln (a[i].age);
      writeln ('telefon');
      readln (a[i].telefon);
      clrscr;
end;

clrscr;

for i:=1 to n do begin
      writeln (a[i].surname:25, a[i].name:20, a[i].middlename:20, a[i].god:15, a[i].age:10, a[i].telefon);
end;

writeln ('Введите возраст');
readln (age1);

for i:=1 to n do begin
      if a[i].age > age1 then begin
            writeln (a[i].surname:25, a[i].name:20, a[i].middlename:20, a[i].god:15, a[i].age:10, a[i].telefon);
end; end;

readln;
clrscr;
end.