Даны натуральное число, последовательность символов. Удалить все символы '*', сдвигая конец последовательности на освободившиеся места

uses crt;
const nmax=100;
var s:array[1..nmax] of char;
    n,i,j:integer;
begin
clrscr;
repeat
write('Количество символов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' символов, в том числе символы *');
for i:=1 to n do
 begin
  s[i]:=readkey;
  write(s[i]);
  if i=n then writeln;
 end;
for i:=1 to n do
if s[i]='*' then
 begin
  if i=n then s[i]:=' '
  else
   begin
    for j:=i to n-1 do
    s[j]:=s[j+1];
    s[n]:=' ';
   end;
 end;
for i:=1 to n do
write(s[i]);
readln
end.

Var S:array[1..200] of char;
    i,j,n,k:byte;
Begin
    write('Введите размерность: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      write(i,'-ый символ: ');readln(S[i]);
     End;
    For i:=1 to n do
     Begin 
      if (S[i]='*')and(i=n) then s[i]:=' ';
      if (S[i]='*')and(i<>n) then 
       Begin
        inc(k);
        For j:=i to n-1 do
         s[j]:=s[j+1];
        s[n-k+1]:=' ';
       End;
      write(s[i]:3);
     End;
End.