skokydodialky

//Napiste program ktory si vypyta mena sutaziacich skoku do dialky a ku kazdemu jednu dlzku skoku
//Program vypise zoznam sutaziacich podla vykonu program vypise kto dostane zlatu kto striebornu a kto zlatu.
program skokydodialky;
{$APPTYPE CONSOLE}
uses SysUtils, Crt in 'CRT\crt.pas';
type rekord=0..1000;
var m:array[1..255] of string;
    s:array[1..255] of rekord;
    n,i:byte;
    ps:rekord;
    pm:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko bolo sutaziacich: ');
  textcolor(lightgreen); readln(n); normvideo;
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' sutaziaceho: ');
      textcolor(lightgreen); readln(m[i]); normvideo;
      write('Zadajte dlzku skoku ',i,' sutaziaceho (v cm): ');
      textcolor(lightgreen); readln(s[i]); normvideo;
    end;
  i:=0;
  while i<>n do
    begin
      inc(i);
      if s[i]<s[i+1] then
        begin
          ps:=s[i];
          s[i]:=s[i+1];
          s[i+1]:=ps;
          pm:=m[i];
          m[i]:=m[i+1];
          m[i+1]:=pm;
          i:=0;
        end;
    end;
  for i:=1 to n do begin textcolor(white); writeln('  ',m[i]:4,' ',s[i]); normvideo; end;
  writeln('Traja najlepsi:');
  write('  Prve miestno vyhral: ');
  textcolor(yellow); write(m[1],' ',s[i]);
  write('  Druhe miesto vyhral: ');
  textcolor(lightgray); write(m[2],' ',s[2]);
  write('  Tretie miesto vyhral: ');
  textcolor(brown); write(m[3],' ',s[3]); normvideo;
  readln;
end.