Someone

program spordipaev;

type tulemus=array[1..100] of real;
type nimed=array[1..100] of string;
var aeg : tulemus;
var i, mitu : integer;
var kiireim : real;
var nimi : nimed;
var vastus, nim : string;

begin
        writeln('Mitu väistlejat oli?');
        readln(mitu);
        for i:=1 to mitu do
        begin
                writeln('Mis oli ',i,'. väistleja nimi?');
                readln(nimi[i]);
                writeln('Mis oli ',i,'. väistleja tulemus?');
                readln(aeg[i]);
        end;
        kiireim:=aeg[1];
        for i:=1 to mitu do
        begin
                if aeg[i]<kiireim then kiireim:=aeg[i];
        end;
        for i:=1 to mitu do
        begin
                if aeg[i]=kiireim then writeln('Väitja oli ',nimi[i],' ajaga
',aeg[i]:0:2);
        end;
        writeln('Kas soovite otsida nime j„rgi? (j/e)');
        readln(vastus);
        if (vastus='j') then
        begin
                writeln('Sisestage väistleja nimi, kelle aega soovite
n„ha');
                readln(nim);
        for i:=1 to mitu do
        begin
                if nim=nimi[i] then writeln('åpilase ',nimi[i],' aeg oli
',aeg[i]:0:2);
        end;
        readln;
        end;
end.