Ошибка в коде программы (Delphi)

[Начинающий програм]

Помогите найти ошибку. Буду очень признателен.

Условие задачи

Пусть даны целое число n, символы S1,S2,...,Sn. Преобразуйте последовательность S1,S2,...,Sn, удалив каждый
символ звездочки и повторив каждый символ, отличный от звездочки.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

const nmax=200;
var a:array[1..nmax] of char;
    n,i,j:integer;
begin
setconcolecp(1251);
setconsoleoutputcp(1251);
readln(n);
for I := 1 to n do
  Read(a[i]);
for I := 1 to n do
  write(a[i],' ');
for I := n downto 1 do
    if a[i]='*' then
      begin
        for j := i to n-1 do
          a[j]:=a[j+1];
          n:=n-1;
      end;
      else
        begin
          for j := n to i do
            a[j+1]:=a[j];
          n:=n+1;
        end;
i:=1;
while i<=n do
begin
  for j := n to i do
    a[j+1]:=a[j];
  n:=n+1;
i:=i+2;
end;
writeln;
for I := 1 to n do
  write(a[i],' ');
readln;
readln;
end.

[Padla*]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;


procedure Zamina(var s: string; i:integer);
begin
  if i < Length(s)-1 then
    if (s[i] = '*')then
     begin
       delete(s, i, 1);
       zamina(S, i);
       END
       ELSE  BEGIN
       insert(S[I], s, i);
       zamina(S, i+2);
                  END;
end;

var
 s:string;
begin
    writeln('Vvedit radok'); readln(s);

      Zamina(s,0);
    writeln(s);
    readln;
    READLN;
end.

пОЧЕМУ НЕ ТАК?

[Начинающий програм]

Я Вам очень благодарен! Но мне сказал препод, чтоб задача была сделана без процедуры. Можно как-то переиначить код программы?

[Padla*]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 s:string;I:INTEGER;
begin
    writeln('Vvedit radok'); readln(s);
       I:=0;
    WHILE (i <= Length(s))DO
    if (s[i] = '*')then
       delete(s, i, 1)
    ELSE  BEGIN
       insert(S[I], s, i);
       I:=I+2;
      END;
    writeln(s);
    readln;
    READLN;
end.

ВОТ... ЕСЛИ БУДУТ ПРОБЛЕМИ - ПИШЫТЕ...если помогло жми весы...

[Начинающий програм]

Большое Вам спасибо за помощь! Программа работает безупречно, Вы очень меня выручили!