Записать в Pascal

[sushkoff85]

Даны натуральное число n и символы S1, …, Sn (строка). Определить число вхождений в строку группы букв авс.

с использованием языка BORLAND PASCAL 7.0.

[Mad_Cat]

function Substr(str, pod: string): integer;
var   i,ln:integer;
begin
  i:=0;
   ln:=length(pod);
   while (pos(pod,str)>0) do
begin
  inc(i);
  delete(str,1,pos(pod,str)+ln);
end;
Substr:=i;
end;
const sub='abc';
var s:string;
k:integer;
begin
writeln('s:');  readln(s);
Writeln(Substr(s,sub));
readln;
end.

[sushkoff85]

Спасибо, а как это всё записать в файл с расширением .pas и .exe

[Niro]

а как это всё записать в файл с расширением .pas

как, как - переписываете на бумажку, запускаете паскаль набираете.

и .exe

выбираете пункт меню
compile - destination memory
compile - build
ехе файл получен
...

Пытаюсь так сделать, выводит ошибку 36.....

Добавьте

function Substr(str, pod: string): integer;
var i,ln:integer;

[sushkoff85]

Пытаюсь так сделать, выводит ошибку 36.....

[sushkoff85]

Кто подскажет - в итоге в чёрном окне паскаль что должно появиться???