Паскаль / 1 семестр / проги / Дом работы / Дом раб 3 / 123

Uses crt;
var
stroka:String[40];
i: integer;
key:String;
begin
ClrScr;
writeln('Domashnyaya rabota 3');
writeln('Shilak Evgenii');
writeln('Gruppa C-11');
writeln('Variant 25');
writeln('Proverit i ispravit Oshibki v sochetzniyah "gi","si" i "hy","cy"');
writeln('dlina stroki ne bolee 40 simvolov');
writeln('Priznac okonchaniya vvoda - Enter("Pustaya stroka"');
Repeat
writeln('Ishodnaya stroka');
readln (stroka);
i:=1;
while i<length(stroka) do
begin
if(stroka[i]in['g','G','s','S']) and ( stroka[i+1] in [ 'y','Y']) then
stroka[i+1]:= 'i';
if (stroka[i]in['h','H','c','C']) and ( stroka[i+1]in ['u','U']) then
stroka[i+1]:='y'

else
i:=i+1;
end;
Writeln ('Preobrazovannaya stroka');
writeln(stroka);
{ Writeln('Zakonchit" raboty? Da-nagmi e.Net-nagmi s');
Readln(Key); }
Until (stroka='') {or (Key='e')};
end.