cOUple 4 Kata

Program 4kata;
{mencari berapa banyak kata 'suka' dalam pita karakter}
kamus:
Count: integer;
C1,C2.CC: string;
procedure start_couple;
start;
C1 <- ''
C2<- CC
procedure adv_couple;
adv;
C1 <- C2
C2 <- CC
algoritma:
start_couple;
count <- 0
while CC<>'.' do
begin
if C1='s' and C2='u' then
begin
adv_couple;
if C1='k' and C2='a' then
begin
count <- count+1;
end;
adv_couple;
end;
output(count);