программа обработки ведомости на зарплату на Паскаль

[Анжелика]

Составить блок схему алгоритма и программу обработки ведомости на зарплату. Программа должна обеспечивать ввод фамилий, табельных номеров, номеров участков и зарплаты работников.
Табельные номера следуют в произвольном порядке и имеют значения от 1 до N, номера участков также следуют в произвольном порядке и имеют значения от 1 до К.
Фамилии и зарплата работников вводятся произвольно.
N=11, K=2 N – численность работников, K – количество участков.
Предусмотреть невозможность ввода номера участка, большего K.
Упорядочить взаимосвязанные массивы в порядке возрастания значений табельных номеров. Вывести на печать упорядоченные массивы.
Очень плохо понимаю что и как делать

[Анжелика]

Program lek;
uses crt;
type t=record fam:string; tab,nu:integer; zar:real; end;
type t1=array[1..50] of t;
var baza:t; ved:t1;  i,n,m,j:integer;
begin
clrscr;
writeln('vvedite kol-vo rabotnikov');
readln(n);
writeln('vvedite kol-vo uchastkov');
for i:=1 to n do
begin
writeln('vvedite familiy,tabelnyi nomer,nomer uchastka,zarplatu',i,'rabotnika');
readln(ved[i].fam,ved[i].tab,ved[i].nu,ved[i].zar);
end;
writeln('ishodnaya vedomost');
for i:=1 to n do
begin
write(ved[i].fam:15,ved[i].tab:5,ved[i].nu:5,ved[i].zar:10:2);
writeln;
end;
{sortirovka}
for i:=1 to n-1 do
for j:=1 to m-1 do
if ved[j].tab> ved[j+1].tab then
begin
baza:=ved[j+1];
ved[j]:=ved[j+1];
ved[j+1]:=baza;
end;
writeln;
writeln('otsortirovannaya vedomost');
for i:=1 to n do
begin
write(ved[i].fam:15,ved[i].tab:5,ved[i].nu:5,ved[i].zar:10:2);
writeln;
end;
readln;
end.

Что не так?

[Анжелика]

Пожалуйста проверьте

[alex_fcsm]

for i:=2 to n do
for j:=n downto i do
if ved[j].tab> ved[j+1].tab then
begin
baza:=ved[j];
ved[j]:=ved[j+1];
ved[j+1]:=baza;
end;

[Анжелика]

Это где не правльно?

[alex_fcsm]

Там где у Вас подписано {sortirovka}

[Анжелика]

Спасибо!!!!!