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

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.