Прошу помочь.Массив по критериям.

[maximL]

Здравствуйте уважаемые. Очень нужна помощь.
У девушки практика, а она проспала все пары.
Если не трудно пожалуйста поподробнее. Вот задача:
Даны список футбольных команд высшей лиги России и количество очков, набранных каждой командой в чемпионате России. Известно, что нет команд с равным числом очков, а две команды, набравшие наименьшее число очков, покинут высшую лигу. Какие это команды?
Заранее большое спасибо.

[maladoy]

program fut;
uses crt;
const n=5;// количество команд
var a:array[1..n] of integer;
i,i1,i2,min:integer;
begin
for i:=1 to n do begin
writeln('vvedite kolvo o4kov ',i,'-oy komandy:');
readln (a[i]);
end;
min:=999;
for i:=1 to n do
if a[i]<min then begin
min:= a[i]; i1:=i;
end;
min:= 999;
i:=1;
while i<=n do begin
if i<>i1 then
 if a[i]<min then begin
  min:=a[i]; i2:=i;
  end;
  i:=i+1;
 end;
writeln('vyletyat ',i1,' i ',i2);
readln;
end.

и спать надо меньше

[Dark_Spirit]

program futbol;
uses crt;
var a:array[1..100] of string[20];
b:array[1..100] of integer;
min1, min2,:integer;
i:integer;
pr1,pr2:integer;
n:integer;
begin
clrscr;
write('Введите колличество команд <100 - ');
readln(n);
writeln('Введите названия команд и колличество очков');
for i:=1 to n do
begin
write('Введите название ',1,' -ой команды ');
read(a[i]);
write(' и колличество очков = ');
readln(b[i]);
end;
min1:=b[1];
min2:=b[1];
pr1:=1;
pr2:=1;
for i:=1 to n do
if b[i]<min1
then
begin
min2:=min1;
pr2:=pr1;
min1:=b[i];
pr1:=i;
end;
writeln ('Команды с ниаменьшим колличеством очков: ');
writeln(a[pr2],' ',b[pr2]);
writeln(a[pr1],' ',b[pr1]);
readln;
end.

[maximL]

Огромное вам спасибо!