Заменить в каждой строке воскл. знаки на точки. - язык Pascal

[Карась]

Чтото у вас всё сложнее и запутаней с каждым разом.
Вот посмотрите на этот пример.

Var m : array [1..10]of String;
      i, k : Integer;
      S : String;

Begin
k := 0;
Repeat
  Writeln('Введите строку или пробел для окончания');
  s := '';
  Readln(S);
  For i := 1 To Length(S) do if S[i]='!' then S[i]:='.';
  k := k + 1;
  m[k] := S;
Until s = ' ';

For i := 1 To k Do Writeln(m[i]);
Readln;

End.

[Karinna]

Но еще нужно указать, что у меня определенное кол-во вводимых строк M

[SERG1980]

uses crt;
var
m:array [1..10]of string;
i,n:integer;
begin
clrscr;
writeln('Vvedite kol-vo strok');
readln(n);
writeln('Vvedite ishodnyi massiv');
for i:=1 to n do readln(m[i]);
writeln;
writeln('Obrabotannyi massiv');
for i:=1 to n do
begin
while pos('!',m[i])>0 do m[i][pos('!',m[i])]:='.';
writeln(m[i]);
end;
readln;
end.