Задать М строк. Паскаль.

[ТатьянаЧернышева]

Заданы М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой последовательность символов.

Из меня вообще никакой программист. Поэтому, будьте добры, подскажите 2 вещи:
1) Как задать эти М строк?
2) Если мне надо найти в строках какие-либо знаки, как просматривать эту строку и как находить их?


(Решаю в паскале)

Заранее благодарна за вашу помощь!)

[Mad_Cat]

Как задать эти М строк?

for i:=1 to m do
readln(Массив_строк[i]);

Если мне надо найти в строках какие-либо знаки, как просматривать эту строку и как находить их?

For j:=1 to length(строка) do
строка[j] //это и есть символ

[ТатьянаЧернышева]

Ох и туго ж до меня доходит.
Т.е. при например такой задаче:
Заданы М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой последовательность символов, включающих в себя восклицательные знаки. Заменить в каждой строке все имеющиеся восклицательные знаки точками.

Программа выглядит примерно так? Уж простите безмозглую))

program stroki4;
var a:array[1..100] of string;
x,y:char;
m,i,j:integer;
begin
x:='!';
y:='.';
writeln('Vvedite kolichestvo strok: ');
readln(m);
for i:=1 to m do
begin
writeln('Vvedite ',i,' stroky - ');
readln(a[i]);
end;
end.

Это я ввела строки. а как заменить там знаки не понимаю...

[Mad_Cat]

program stroki4;
 var a:array[1..100] of string;
 x,y:char;
 m,i,j:integer;
 begin
 x:='!';
 y:='.';
 writeln('Vvedite kolichestvo strok: ');
 readln(m);
 for i:=1 to m do
 begin
 writeln('Vvedite ',i,' stroky - ');
 readln(a[i]);
 end;
For i:=1 to m do
For j:=1 to length(a[i]) do
if a[i][j]='!' then a[i][j]:='.';
end.

[ТатьянаЧернышева]

Спасибо огромное!!!!)))

[Mad_Cat]

Спасибо огромное!!!!)))

Только не забудьте вывести свои M строк на экран