задача на массив

[Яша]

вот программа на эту задачу,
как сделать сортировку???

[Яша]

Program ss;
Uses crt;
Var a: array [1..10] of string;
b: array [1..10] of integer;
k: array [1..10] of integer;
c: array [1..10] of integer;
s:array [1..10] of integer;
max1, min1: string;
max, min, i: integer;
begin
randomize;
clrscr;
{заполнение массива а}
a[1]:=’Ivanov’;
a[2]:=’Sidorov’;
a[3]:=’Petrov’;
a[4]:=’Stulov’;
a[5]:=’Vasechkin’:
a[6]:=’Isaev’;
a[7]:=’Korolev’;
a[8]:=’Volkov’;
a[9];=’Larin’;
a[10]:=’Kupzov’;
{заполнение массивов b, k, c}
for i:=1 to 10 do begin
b[i]:=1 +random(49);
k[i]:=1 +random(49);
c[i]:=1 +random(49);
end;
{заполнение массива s}
for i:=1 to 10 do begin
s[i]:=b[i]+k[i]+c[i];
end;
{вывод массивов a, b, k, c, s}
writeln(‘familii ’, ’bras ’, ’krol ’, ’na spine ’, ‘summa’);
for i:=1 to 10 do begin
writeln (a[i]:9,b[i]:6,k[i]:6,c[i]:6,s[i]:6);

max:=b[1];
max1:=a[1];
for i:=2 to 10 do begin
if max<b[i] then
begin
max:=b[i];
max1:=a[i];
end;
end;
writeln(max1,’ -pervoe mesto v plavanii brassom’);

max:=k[1];
max1:=a[1];
for i:=2 to 10 do begin
if max<k[i] then
begin
max:=k[i];
max1:=a[i];
end;
end;
writeln(max1,’ -pervoe mesto v plavanii krolem’);

max:=c[1];
max1:=a[1];
for i:=2 to 10 do begin
if max<c[i] then
begin
max:=c[i];
max1:=a[i];
end;
end;
writeln(max1,’ -pervoe mesto v plavanii na spine);
min:=b[1];
max1:=a[1];
for i:=2 to 10 do begin
if b[i]<min then
begin
min:=b[i];
max1:=a[i];
end;
end;
writeln(min1,’ -poslednee mesto v plavanii brassom’);
min:=k[1];
max1:=a[1];
for i:=2 to 10 do begin
if k[i]<min then
begin
min:=k[i];
max1:=a[i];
end;
end;
writeln(min1,’ -poslednee mesto v plavanii krolem’);
min:=c[1];
max1:=a[1];
for i:=2 to 10 do begin
if c[i]<min then
begin
min:=c[i];
max1:=a[i];
end;
end;
writeln(min1,’ -poslednee mesto v plavanii na spine’);
max:=s[1];
max1:=a[1];
for i:=2 to 10 do begin
if max<s[i] then
begin
max:=s[i];
max1:=a[i];
end;
end;
writeln(max1,’ -pervoe mesto po summe trex zaplivov’);
end.