[Pascal] вывод элементов из файла случайным образом

[Рамик]

Помогите пожалуйста, сделать вывод элементов пободно тому что я сделал только чтобы случайным образом сортировалось...

program pr_3;
uses crt;
type spisok=record
     fam:string;
     srbal:integer;
     s:real;
     end;
var a:array[1..100] of spisok;
    m:integer;
    c:spisok;
    kol,i:integer;
    f:file of spisok;
    stepen:integer;
    s:real;
    z:string;
    label 1;
begin
clrscr;
stepen:=7500;
assign(f,'c:\bp\bin\ramik\praktika\spisok.dat');
writeln('vvedite kollichestvo ushashihsya: ');
readln(kol);
for i:=1 to kol do begin
    writeln('vvedite familiyu ',i,' uchashegosya:');
    readln(a[i].fam);
1:  writeln('vvedite ego srednii bal: ');
    readln(a[i].srbal);
    if a[i].srbal=5 then begin
    s:=stepen*(10/100);
    s:=stepen+s;
    a[i].s:=s;
    end
    else
    a[i].s:=stepen;
    if a[i].srbal>5 then begin
    writeln('bal vveden ne korrektno! vvedite zanovo!');
    goto 1;
    end;
end;
rewrite(f);
for i:=1 to kol do
 write(f,a[i]);
close(f);
{======================VIVOD VVEDENNIH ELEMENTOV========================}
reset(f);
i:=1;
clrscr;
writeln('Familiya','':3,'sredniy bal','':3,'stependiya');
while not(eof(f)) do begin
read(f,a[i]);
writeln(a[i].fam,'':15,a[i].srbal,'':10,a[i].s:1:1);
end;
close(f);
{=============SORTIROVKA PO SREDNEMU BALU=============================}
writeln;
writeln('sortirovannii po srednemu balu: ');
reset(f);
read(f,a[i]);
for m:=1 to kol-1 do
    for i:=1 to kol-m do
    if a[i].srbal > a[i+1].srbal then begin
    c:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=c;
    end;
writeln('Familiya','':3,'sredniy bal','':3,'stependiya');
for i:=1 to kol do
    writeln(a[i].fam,'':15,a[i].srbal,'':10,a[i].s:1:1);
close(f);
{======================POISK PO FAMILII==============================}
writeln;
writeln('vvedite familiyu dlya poiska: ');
readln(z);
reset(f);
writeln;
for i:=1 to filesize(f) do begin
read(f,a[i]);
if a[i].fam=z then begin
writeln('Familiya','':3,'sredniy bal','':3,'stependiya');
writeln(a[i].fam,'':15,a[i].srbal,'':10,a[i].s:1:1);
end;
end;
close(f);
readln;
end.

если имются ошибки в коде пожалуйста скажите...

[Sazary]

Просто случайная сортировка? Ну тут много чего можно придумать.
Как вариант:

{===============RANDOM_SORT=========================}
writeln;
writeln('random sort: ');

rand_1 := random(10)+10;
for m:=1 to rand_1 do
 begin
 for i:=1 to kol do
  begin
  rand_2 := random(kol)+1;
  c := a[i];
  a[i] := a[rand_2];
  a[rand_2] := c;
  end;

 end;

writeln('Familiya','':3,'sredniy bal','':3,'stependiya');
for i:=1 to kol do
    writeln(a[i].fam,'':15,a[i].srbal,'':10,a[i].s:1:1);

rand_1, rand_2 - переменные типа integer

[Рамик]

Сообщение от Sazary

[CODE]

rand_1 := random(10)+10;

почему именно random(10)+10? ...не понял

[Sazary]

Сообщение от Рамик

почему именно random(10)+10? ...не понял

Это количество проходов по массиву. Минимум 10. Потому что я так захотел. Можете изменить.

[Рамик]

Сообщение от Sazary

Это количество проходов по массиву. Минимум 10. Потому что я так захотел. Можете изменить.

.
спасибо!