Я учусь по книге "Песни о паскале" и столкнулся с ошибкой: Duplicate Identifier Error
Вот сам код:
- Код: Выделить всё
function
Count(const str : string; ch: char): integer;
var N, i: integer;
begin
N:=0;
for i:=1 to Length(str) do
if str[i]=ch then N:= N+1;
Count:= N;
end;
var S: string;
begin
S:='PASCAL';
Writeln( Count(S, 'A'));
Writeln( Count('BANAN', 'N') + Count('BANAN', 'B'));
Readln;
end.
Использую IDE Free pascal for win32
Ver 1.0.12 2015/11/16