Сформировать список учащихся сдавших экзамен на отлично — Pascal(Паскаль)

uses crt;

var
  i, size: integer;
  nam: array [1 .. 10] of string;
  tick: array [1 .. 10] of integer;
  mark: array [1 .. 10] of integer;
  markp: array [1 .. 10] of string;

begin
  clrscr;
  writeln('Введите кол-во учеников в классе');
  readln(size);
  FOR i := 1 TO size do
  begin
    clrscr;
    writeln('Введите фамилию ученика, билет, оценку цифрой, прописью (через ENTER)');
    readln(nam[i]);
    readln(tick[i]);
    readln(mark[i]);
    readln(markp[i]);
  end;
  clrscr;
  FOR i := 1 TO size do
  begin
    writeln(nam[i], ' Билет - ', tick[i], ' Балл -', mark[i]);
  end;
  FOR i := 1 TO size do
  begin
    IF (mark[i] = 5) AND (markp[i] = 'пять') THEN
      writeln(nam[i], ' билет № ', tick[i], mark[i]:2, ' (отлично)');
  end;

end.