Вывести список студентов, получивших оценку 5 из заданного предмета.программа паскаль

Var p,h,e,s,t,x: integer;     begin  write('введите стоимость проезда в 1 сторону: ');     readln(p);   write('введите стоимость проживания в двухместном номере в сутки: ');   readln(h);   write('введите стоимость питания в сутки: ');   readln(e);   write('введите стоимость страховки: ');   readln(s);   write('введите стоимость трансфера: ');   readln(t);   x: =p*2+h*7+e*7+s+t;       writeln('стоимость тура = ',x, '$', ' - ', x*34.75, 'руб'); end.

Var s,tmp: string;       i,n: integer;       flag,word: boolean; function letter (const let: char): boolean;   begin     if ((let> ='a') and (let< ='z')) or ((let> ='a') and (let< ='z')) then letter: =true       else letter: =false;   end; begin   readln (s);   s: =s+' ';   n: =length(s);   flag: =false;   for i: =1 to n do     begin       if (letter(s[i])) and (not flag)  then       begin            flag: =true;         tmp: ='';         word: =false;       end else if (not letter(s[i])) and (flag) then       begin          flag: =false;         if (word) and (not (tmp='')) then writeln (tmp);       end;       if (flag) then       begin            tmp: =tmp+s[i];           if (s[i]='k') then word: =true;       end;       end; end.