Дан двухмерный массив, содержащий фамилии учащихся и номера их телефонов. По фамилии учащегося найдите гомер его телефона- Pascal(Паскаль)

uses crt;
const nmax=15;
var a:array[1..nmax,1..2] of string[15];
    n,i,j,k:byte;
    f:string[15];
begin
clrscr;
randomize;
repeat
write('Количество учащихся до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Учащийся ',i);
  write(' фамилия: ');readln(a[i,1]);
  write(' телефон: ');readln(a[i,2]);
 end;
clrscr;
writeln('Массив:':21);
writeln('-----------------------------------');
writeln('|     Фамилия    |    Телефон     |');
writeln('-----------------------------------');
for i:=1 to n do
 begin
  gotoXY(1,whereY); write('| ',a[i,1]);
  gotoXY(18,whereY); write('| ',a[i,2]);
  gotoXY(35,whereY); writeln('|');
 end;
writeln('-----------------------------------');
writeln;
writeln('Введите фамилию для поиска');
readln(f);
k:=0;
for i:=1 to n do
if a[i,1]=f then
 begin
  k:=1;
  write('Телефон ',a[i,2]);
 end;
if k=0 then write('Такого учащегося нет');
readln
end.