Напечатайте строку, предварительно удалив из нее все вхождения th - Turbo Pascal

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const m=80;
type stroka = array[1..80] of char;
var s: stroka;
    srt: string;
    n: integer;
 
procedure read_stroka (var s: stroka; var i: integer);                          
var ch:char;
begin
  ch := '.';
  i := 1;
  while i<=n do
  begin
    read (ch);                                                                
    s[i] := ch;
    i := i + 1;                                                                
  end;
end;
 
procedure delete_stroka (var s:stroka;var n: integer);
var i,j: integer;
 
begin
  i :=1;
  while i < n do                                            
  begin                                                                         
    if (s[i] = 't') and (s[i+1] = 'h') then
      begin
        for j:=i to n-2 do begin
          s[j] := s[j+2]                                                       
      end;
      s[n-1]:=' ';
      s[n]:=' ';
      end
    else
        i := i + 1 ;                                                            
  end;
end;
 
procedure print_stroka(s:stroka; k:integer);
var i :integer;
begin
  i := 1;
  while i <=n do
    begin
        write (s[i]);                                                          
      i := i + 1;                                                             
    end;
  writeln;
end;
 
begin
  writeln ('введите длину строки');
  readln(n);
  writeln ('введите строку, заканчивающуюся пробелом, не более ',n,' символов');
  read_stroka(s,n);
  delete_stroka(s,n);
  print_stroka(s,n);
  Readln;
  readln;
end.