Даны натуральное число n, символы , определить число вхождений группы букв abc. символьный и строковый тип. .. прошу.. в паскале..

program strokabc;  

uses crt; var d,n,i,k: integer;

        s: string; begin      clrscr;       writeln('введите n: ');         readln(n);         repeat            clrscr;             readln(s);       until length(s)=n;

      d: = length(s);       for i: =1 to d do      if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k: =k+1;           writeln('строка abc входит в данную строку ',k,' раз');

        readkey;   end.

num1 = float(input("Введите первое число: "))-вводиться число

num2 = float(input("Введите второе число: ")) -вводиться второе число

if num1 < num2:  -если нум1 меньше нум2 тогда

   print (num1, "меньше чем", num2)  вывести нум1 меньше чем нум 2

if num1 > num2:  - если нум1 больше чем нум2 тогда

   print (num1, "больше чем", num2)  вывести нум1 больше чем нум2

if num1 == num2:  -если нум1 равно нум2 тогда

   print (num1, "равно", num2)  вывести нум1 равно нум2

if num1 != num2:  -если нум1 не равно нум2 тогда

   print (num1, "не равно",num2) вывести нум 1 не равно нум2