Задачи на Дельфи: одна на обработку матрицы и две на обработку строк

[ali-4ka]

Здраствуйте, помогите пожалуйста решить:
1.Дано натуральное число n.Получить действительную матрицу [aij] i,j=1/n, для которой aij=1/(i+j)
2.Дана строка символов. Преобразовать строку, заменив в ней все восклицательные знаки
точками.
3.Программа. Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном по-рядке все гласные буквы, которые входят в каждое слово.
(Сборник упражнений В.Н.Пильщиков 14.35а)

[grom333]

2.

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
n,i:integer;
begin
str:=edit1.text;
n:=length(str);
for i:=1 to n do
begin
if str[i]='!' then
  begin
  delete(str,i,1);
  insert('.',str,i);

  end;
end;
edit1.Text:=str;
end;

3-я задача решена здесь

[Hacker19_90]

Да помоему менять напрямую символ проще, нет?

for i := 1 to length(str) do
    if str[i] = '!' then str[i] := '.';

[grom333]

Сообщение от Hacker19_90

Да помоему менять напрямую символ проще, нет?

for i := 1 to length(str) do
    if str[i] = '!' then str[i] := '.';

Проще, спасибо.

[ali-4ka]

Сообщение от grom333

2.

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
n,i:integer;
begin
str:=edit1.text;
n:=length(str);
for i:=1 to n do
begin
if str[i]='!' then
  begin
  delete(str,i,1);
  insert('.',str,i);

  end;
end;
edit1.Text:=str;
end;

3-я задача решена здесь

3-я задача на этом сайте решена не по моему заданию, за 2 задачу спасибо))

[Hacker19_90]

3-я задача на этом сайте решена не по моему заданию, за 2 задачу спасибо))

а подправить не хотите?

[ali-4ka]

если бы я могла исправить, то не спрашивала бы))