Ввести информацию о результатах прыгунов и вывести таблицу результатов,где результаты победителя будут красным цветом.

uses crt;
const im: array [1..5] of string=('Robert','David','John','Jack','Bob');
      ln='----------------------------------------------';
      sh='|  Imja  | 1 podchod | 2 podchod | 3 podchod |';
var a: array [1..5,1..3] of real;
    i,j,imax,jmax: byte;
begin
writeln('Vvedite dannye o rezultatech');
imax:=1;jmax:=1;
for i:=1 to 5 do
    begin
    writeln('Legkoatlet ',im[i],':');
    for j:=1 to 3 do
        begin
        write(j,' podchod: '); readln(a[i,j]);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    end;
clrscr;
writeln(ln);
writeln(sh);
writeln(ln);
for i:=1 to 5 do
    begin
    if i=imax then textcolor(12) else textcolor(15);
    write('|',im[i]:7,'|':2);
    for j:=1 to 3 do
        write(a[i,j]:7:1,'|':5);
    writeln(ln);
    end;
writeln(ln);
readln;
end.