Помогите сделать информатику!!!
написать алгоритм нахождения максимального значения среди 4 целых чисел. составить блок схему

var j,i,buf:integer;

   mass:array[1..4] of integer;

begin

 for i:=1 to 4 do

 begin

   mass[i]:=random(100);

   write(mass[i],' ');

 end;

 for i:=1 to 4-1 do

   for j:=1 to 4-i do

      if (mass[j] > mass[j+1]) then

         begin

            buf := mass[j];

            mass[j] := mass[j+1];

            mass[j+1] := buf;

         end;

 writeln;

 for i:=1 to 4 do

 begin

   write(mass[i],' ');

 end;

 writeln;

 write('Наиболший элемент=',mass[4]);

end.