Удалить из массива заданный символ

type stroka = packed array [1..80] of char;
var s: stroka;

uses
    Crt;
const
    N = 80;
type
    TStroka = packed array [1..N] of char;
var
    s: TStroka;
    i: Byte;
begin
    i := 1;
    while ((i <= N) And (s[i - 1] <> #13)) do
    begin
        s[i] := ReadKey();
        Write(s[i]);
        Inc(i);
    end;
    WriteLn;
    if (i <= N)
    then
        Dec(i);
    while (i <= N) do
    begin
        s[i] := ' ';
        Inc(i);
    end;
    i := 1;
    while ((i <= N) And (s[i] <> 'w')) do
        Inc(i);
    while (i < N) do
    begin
        s[i] := s[i + 1];
        Inc(i);
    end;
    s[N] := ' ';
    for i := 1 to N do
        Write(s[i]);
    WriteLn;
end.

type stroka = packed array [1..80] of char;
var s: stroka;
    t: string;
    i, n: integer;
begin
  writeln('Введите строку:');
  readln(t);
  if length(t) = 0
    then writeln('Введена пустая строка')
    else if length(t) > 80
      then begin
        delete(t, 81, length(t) - 80);
        writeln('Слишком длинная строка, обрезана до 80 символов');
      end;
  for i := 1 to length(t) do s[i] := t[i];
  for i := length(t) + 1 to 80 do s[i] := ' ';
  n := 1;
  while (n <= 80) and (s[n] <> 'w') do inc(n);
  for i := n to 79 do s[i] := s[i + 1];
  if n <= 80 then s[80] := ' ';
  writeln('Результат:');
  for i := 1 to 80 do write(s[i]);
  readln
end.