Witam musze dopisać program do procedury ale zawsze wyskakuje mi błąd przy kompilacji dlatego prosze o napisanie programu który ją wywoła. Zadanie : Danych jest n miast i ich liczb ludności. Posortować te miasta nie malejąco względem liczby ludności (sortowanie bąbelkowe)
kod procedury jest tylko jak go wywołać??
Type
miasto=record;
nazwa:string;
ludnosc:integer;
end;
tab=arrray[1..50]of miasta;
Procedure Sort (var z:tab n:integer);
var
k,b:integer;
rob:miasta;
begin
for k:=1 to n-1 do
for b:=1 to n-k do
if z[b].ludnosc>z[b+1].ludnosc then
begin
rob:=z[b];
z[b]:=z[b+1];
z[b+1]=rob;
end;
end;