Ввести пять результатов сдачи норм. Выдать для каждого участника один из трех вариантов: РЕЗУЛЬТАТ >14 «ОТЛИЧНО»; РЕЗУЛЬТАТ 10-13 «СДАНО»; РЕЗУЛЬТАТ <10 НЕ ЗАЧТЕНО. Ввод завершить, если результат >50. В конце программы выдать: ЛУЧШИЙ РЕЗУЛЬТАТ У УЧАСТНИКА НОМЕР — Pascal(Паскаль)

program results;
uses crt;
var x : array [1..200] of integer;
    i, q, n, max : integer;
begin
    clrscr;
    q := 0;
    i := 1;
    while q <= 50 do begin
        write('Результат №',i,' = ');
        readln(x[i]);
        q:=x[i];
        n:=i;
        i:=i+1;
    end;
    for i:=1 to n-1 do
        if x[i] > 14 then writeln('Результат №',i,' = отлично')
        else if (x[i]>=10) and (x[i]<=13) then writeln('Результат №',i,' = сдано')
        else writeln('Результат №',i,' = не зачтен');
    max := x[1];
    for i:=1 to n-1 do
        if x[i]>max then begin
            max:=x[i];
            q:=i;
        end;
    write('Лучший результат ',max,' у учасника №',q);
    readkey;
end.