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

[The Wild One]

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

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

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

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

[Serega]

Вот вторая задача. Если успею, то третью позже выложу.

Код

program no2;
uses crt;
var f,g:text;
   n,slovo:string;
   i,k:integer;
begin
clrscr;
assign(g,'a:output.txt');
rewrite(g);
close(g);
assign(f,'a:input.txt');
reset(f);
 while not eof(f) do
  begin
   readln(f,n);
    for i:=1 to length(n) do
     begin
         inc(k);
         assign(g,'a:output.txt');
         append(g);
         if (n[i]=' ') and (k>3) then write(g,'!');
         if n[i]=' ' then k:=0;
         write(g,n[i]);
         close(g);
     end;
  end;
close(f);
end.