Строка, файл, матрица! Опции

[The Wild One]

Их "всего" три штуки. Первые две вообще простые знающего человека, а третяя... такие мне точно не решить самому. В общем, помогите пожалуйста разобраться!

1. Дана строка. Все символы строки длиннее 5 заменить на их длинну и вывести на экран.

2. Дан тексовый файл. После каждого слова длиннее 3 поставить "!".

3. Дана матрица: 2 столбца, 10 строк. 1й элемент каждой строки - внутренний диаметр, а второй - внешний диаметр кольца. Отпечатать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами и число колец.

[Serega]

Вот третья задача.

Код

program no3;
uses crt;
const p=3.14;
var mas:array[1..10,1..2] of integer;
   i,k,a,b:integer;
begin
clrscr;
writeln('Введите матрицу (10х2)');
 for i:=1 to 5 do
  readln(mas[i,1],mas[i,2]);
write('Введите стороны прямоугольника (а,b) ');
readln(a,b);
 for i:=1 to 5 do
  if (p*sqr(mas[i,2])/2-p*(mas[i,1])/2)>a*b then
   begin
    inc(k);
    writeln(mas[i,2]);
   end;
writeln('Число колец равно ',k);
readkey;
end.