Лабораторная работа

uses crt;
type stroka=array[1..80] of char;
var j,i,k:integer;
s:stroka;
begin
clrscr;
 writeln('vvedite 80 symvolov');
 for i:=1 to 80 do
  read(s[i]);
 i:=1;
 j:=1;
 repeat
  if (s[i]='t')and(s[i+1]='h') then
   begin
    for k:=i to 78 do
     s[k]:=s[k+2];
    if i>1 then i:=i-1;
   end
   else
    i:=i+1;
  j:=j+1;
 until (j=41)or(s[i]=' ');
 writeln('poluchennaya stroka');
 for i:=1 to 80 do
  write(s[i]);
 readkey;
end.