Вывести на экран список студентов, изучающих немецкий язык - Pascal

program pr;
 
type
  Tst = record 
    surname: string[50];
    name: string[50];
    language: string[50];
  end;
 
var
  a: Array [1..100] of Tst;
  i, n: integer;
 
begin
  writeln('Введите количество записей');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию студента');
    readln(a[i].surname);
    writeln('Введите имя студента');
    readln(a[i].name);
    writeln('Введите язык, который изучает  студент');
    readln(a[i].language);
    writeln;
  end;
  writeln('Студенты, изучающие немецкий язык:');
  for i := 1 to n do
    if a[i].language = 'немецкий' then
    begin
      writeln(a[i].surname, ' ', a[i].name);
    end;
end.