Сведения об учениках(записи)

const n=5;
type Info =
          record
            name: string[15];
            sname: string;
            year: integer;
            lit: char;
          end;
var a: array[1..n] of Info;
    i: integer;
begin
for i:=1 to n do {заполнение массива}
begin write('NAME: '); readln(a[i].name);
      write('SURNAME: '); readln(a[i].sname);
      write('YEAR OF STUDY: '); readln(a[i].year);
      write('LETTER: '); readln(a[i].lit);
      writeln;
end;
writeln('STUDENTS: ');
for i:=1 to n do {вывод массива, каждая запись в строчку}
begin writeln(a[i].name,' ',a[i].sname,' ',a[i].year,' ',a[i].lit);
end;
readln;
end.

type Info =
          record
            name: string[15];
            sname: string;
            year: integer;
            lit: char;
          end;
var a: array[1..n] of Info;
    i: integer;
begin write('Count of Pupils: ');readln(n);
for i:=1 to n do {заполнение массива}
begin write('NAME: '); readln(a[i].name);
      write('SURNAME: '); readln(a[i].sname);
      write('YEAR OF STUDY: '); readln(a[i].year);
      write('LETTER: '); readln(a[i].lit);
      writeln;
end;
writeln('STUDENTS: ');
for i:=1 to n do {вывод массива, каждая запись в строчку}
if(a[i].year=9)then
writeln(a[i].name,' ',a[i].sname,' ',a[i].year,' ',a[i].lit);
readln;
end.

type Info =
          record
            name: string[15];
            sname: string;
            year: integer;
            lit: char;
          end;
var a: array[1..30] of Info;
    i,n: byte;
begin write('Count of Pupils: ');readln(n);
for i:=1 to n do {заполнение массива}
begin write('NAME: '); readln(a[i].name);
      write('SURNAME: '); readln(a[i].sname);
      write('YEAR OF STUDY: '); readln(a[i].year);
      write('LETTER: '); readln(a[i].lit);
      writeln;
end;
writeln('STUDENTS: ');
for i:=1 to n do {вывод массива, каждая запись в строчку}
if(a[i].year=9)then
writeln(a[i].name,' ',a[i].sname,' ',a[i].year,' ',a[i].lit);
readln;
end.