Массив строк

[DimasikP]

Собственно, сама программа, Дан массив строк, заменить все цифры находящиеся в првой половине строки на '*', а из второй половины удалить все '.'
Вот моя попытка, но выдает ошибку в строке Delete и пишет, что программа не завершена
Нужна помощь.

var a: array [1..10] of string;
n,i:Integer;
begin
Readln(n);
for i:= 1 to length(a) do
readln(a[i]);
for i:= 1 to length(a) do begin
if (i>= (length(a)/2)) and (a[i]>= ' . ') then delete (a,1,i);
if (i<=(length(a)/2)) and ((a[i]>= '0') or (a[i]<= '9')) then Insert (*,a,i);
end;
writeln(a[i]);
end.

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

[Mad_Cat]

Дан массив строк

строк или символов?

delete (a[индекс_массива],1,i)

[DimasikP]

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

строк или символов?

delete (a[индекс_массива],1,i)

Массив строк, а что?

[Mad_Cat]

тогда циклов должно быть 2
1) по массиву
2) по строке

const Digits='01234567989';
      n=1;
var i,j:integer;
    S:array[1..n] of string;
    LS:integer;
begin
  for i:=1 to n do
    Readln(s[i]);
  For i:=1 to n do begin
    LS:=length(S[i]) div 2;
    for j:=1 to Ls do
      if pos(s[i][j],digits)<>0 then s[i][j]:='*';
    LS:=LS+1;
    while LS <=(Length(S[i])) do
      begin
        if s[i][LS]='.' then delete (s[i],Ls,1)
          else Ls:=Ls+1;
  end;
end;
for i:=1 to n do
writeln(s[i]);
end.

12jhg123132hghhh..ewrwerewrw.wer123
**jhg******hghhh.ewrwerewrwwer123

[DimasikP]

Попробовал чуть переделать программу. вот получилось

var a:array [1..5] of string;
n,i:Integer;
begin
Readln(n);
for i:= 1 to length(a) do
readln(a[i]);
for i:= 1 to length(a)div 2 do
if (a[i]>='0') and (a[i]<='9') then a[i]:='*';
for i:= length(a)div 2 to length(a) do
if a[i]='.' then delete (a[i],1,i);
writeln(a[i]);
end.

Но вроде я не то вывожу, с выводом проблема теперь

[DimasikP]

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

тогда циклов должно быть 2
1) по массиву
2) по строке

Не увидел ваш комментарий, попробую сделать что-то
Спасибо.