Вэвм вводятся результаты соревнований по прыжкам в высоту. число участников произвольно. напечатать сообщение о победителе. (оператор цикла for, paskal)

program raf105;

var  

  i,n,maxn: integer;

  a,max: real;

begin

max: = -10000;

n: = random(3,10);

writeln('введите результаты ',n,' участников по очереди');

for i: =1 to n do

begin

  write(i,'. ');

  readln(a);

  if a > max

    then begin

      max: = a;

      maxn: = i;

    end;

end;

writeln('победил участник №',maxn,' с результатом ',max);

end.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.