Определить, сколько раз входит в строку группа букв abc — Pascal(Паскаль)

var
k,i:integer;
s:string;
begin
    writeln('Vvedite stroku');
    readln(s);
    k:=0;
    for i:=1 to length(s)-2 do
    if copy(s,i,3)='abc' then k:=k+1;
    writeln('itogo');
    writeln(k);
end.

var i, k: integer; sub, s: string;
begin
writeln('Vvedite podstroku');
    readln(sub);
writeln('Vvedite stroku');
    readln(s);
k:=0;
if length(sub) < length(s) then
for i:=1 to length(s)-length(sub)+1 do
if copy(s,i,length(sub))=sub then k:=k+1;
 writeln('itogo');
    writeln(k);
end.