Program v pascale. – Pascal – Fórum – Programujte.com

Zdravim potrebujem pomoc. Mam urobit program do skoly ale este som pascal vobec nevidel. Prosim pomozte.
Tu je zadanie.
Vytvorte program, ktorý bude zazanmenávat výsledky bežeckého závodu (10 závodníkov). Využite dátový typ RECORD, ktorý bude obsahovat meno, priezvisko a cas závodníka. Po ich zadaní program zostaví výsledkovú listinu závodu.
Za pomoc vopred Dakujem.

To lopotka :
Tak nieco som uy napisal ale ako urbit to ze to zoradi podla casu a este ako zadefinovat aby som mohol davat vysledny cas mm:ss?

Tu je zatial co som napisal.

No malo by to byť asi takto:

program sportovci;

uses crt;

type clovek=record

     meno:string;

     priezvisko:string;

     cas:real;

     end;

var sportovec:array[1..10] of clovek;

    pom:clovek;

    i,j:byte;



BEGIN

clrscr;

for i:=1 to 10 do

  begin

   writeln(i,' sportovec');

   with sportovec[i] do

     begin

      write('meno: ');

      readln(meno);

      write('priezvisko:  ');

      readln(priezvisko);

      write('cas: ');

      readln(cas);

     end;

   clrscr;

  end;

for i:=1 to 10 do

 for j:=1 to 9 do

   begin

    if sportovec[j].cas < sportovec[j+1].cas then

      begin

       pom:=sportovec[j];

       sportovec[j]:=sportovec[j+1];

       sportovec[j+1]:=pom;

      end;

   end;

for i:=1 to 10 do

  begin

   with sportovec[i] do

     begin

      writeln(cas:0:2,#32,priezvisko,#32,meno);

     end;

  end;

readkey;

END.

To Grungy :
Moc Dakujem. Ak este niekdo vie z toho urobit struktogram budem len rad. Je to zadanie do skoly.