Сделать ! написать алгоритм нахождения максимального значения среди 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.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.