Помогите разобраться

[Maserati]

Дан код программы:

program zadanie7;
type tel_rec=record
        surname:string;
        tel:string;
end;
const tel_n = 5;
const tel_book:array[1..tel_n] of tel_rec=
        (
         (surname:'Fadeev';tel:'338-35-68'),
         (surname:'Varfalomeev';tel:'367-35-68'),
         (surname:'Anikushin';tel:'123-75-68'),
         (surname:'Harlamov';tel:'785-35-68'),
         (surname:'Mephistopheles';tel:'33-58-35')
        );
        
var i:integer;
   founded:boolean;
begin
        writeln ('Телефон с фамилией начинающейся на F:');
        for i:=1 to tel_n do
                if length(tel_book[i].surname) > 0 then
                        if tel_book[i].surname[1] = 'F' then
                                writeln ('   ', tel_book[i].surname, ' ', tel_book[i].tel);
        writeln ('Телефонный номер 33-58-35:');
        founded:=false;
        for i:=1 to tel_n do
                if tel_book[i].tel = '33-58-35' then
                begin
                        writeln ('   ', tel_book[i].surname);
                        founded:=true;
                        break;
                end;  
       if not founded then
               writeln ('Нет фамилий с этим телефоном!');
end.

Нужно заполнить таблицы

[Mad_Cat]

А хто код то писал - вот он пусть и разбирается