Начертить блок-схему, определить из n чисел наибольшее

Программа:

type Student=record

 FIO:string;

 year:integer;

 obj:string;

 mark:integer;

end;

var

 i:integer;

 objec:string;

 s: array [1..3] of Student;

BEGIN

 // 1-ый студент

 s[1].FIO:= 'Петров П.П.';

 s[1].mark:= 3;

 s[1].obj:= 'Математика';

 s[1].year:= 1997;

 // 2-ой студент

 s[2].FIO:= 'Иванов И.И.';

 s[2].mark:= 5;

 s[2].obj:= 'Математика';

 s[2].year:= 1999;

 // 3-ий студент

 s[3].FIO:= 'Сидоров С.С.';

 s[3].mark:= 5;

 s[3].obj:= 'Математика';

 s[3].year:= 1998;

 write('Введите предмет: ');

 readln(objec);

 writeln('Список студентов по заданным параметрам:');

 for i:=1 to 3 do

   if (s[i].obj = objec) and (s[i].mark = 5) then

     writeln(s[i].FIO, ' - ' , s[i].year)

END.

Program p_2; var    z, a : real; m : integer; function step (n: integer; x: real): real; var    i: integer; y: real;       begin      i: =1; y: =1;           while i< =n do              begin          y: =y*x; i: =i+1;               end;                   step: =y;           end;   {конец функции}begin    write(‘введи степень и возводимое число’); readln(z,m);     f: =step(m,z);     writeln(z, ‘ в степени’, m, ‘=’,f); end.