Нет перегруженной подпрограммы с такими типами параметров pascal что значит

Кодирование сообщения в паскале. Ошибка: Нет перегруженной подпрограммы с такими типами параметров.

Программа должна переводить буквы латинского алфавита в код ASCII, переводить числа кода в двоичную систему и помещать 7 информационных бит на свои место кодовой последовательности и используя проверочные соотношения выбирать 4 проверочных бита. Выдавать на выходе уже закодированные Кодом Хэмминга (11,7) 11 битные последовательности.
Не могу понять, что не так в строке:

for j:=1 to 11 do F[j]:=odd(C[j]); //преобразование типа integer в тип boolean

пишет, что Нет перегруженной подпрограммы с такими типами параметров.

Вот полный код программы:

var A:string;
B:array [1..200] of integer;
S:string[7];
C:string[11];
D,G:array [1..200] of string;
F:array [1..11] of boolean;
i,j,n:integer;

begin
read(A);
for i:=1 to length(A) do B[i]:=ord(A[i]); //кодируем в ASCII

for i:=1 to length(A) do begin //переводим из десятичной в двоичную
n:=B[i];
while n>0 do begin
insert(chr(48+n mod 2),S,1);
n:=n div 2;
end;
D[i]:=S;
delete(S,1,11);
end;

for i:=1 to length(A) do begin //кодирование кодом Хемминга (11,4)
S:=D[i];

//перенос информационных символов
insert(copy(S,1,3)+’0′,C,1);
insert(copy(S,4,3)+’0′,C,5);
insert(copy(S,7,1)+’00’,C,9);

for j:=1 to 11 do F[j]:=odd(C[j]); //преобразование типа integer в тип boolean

//задача проверочных символов с помощью проверочных соотношений
if (F[1]xor F[3]xor F[5]xor F[7]xor F[9])=false then F[11]:=false else F[11]:=true;
if (F[2]xor F[3]xor F[6]xor F[7]xor F[11])=false then F[10]:=false else F[10]:=true;
if (F[3]xor F[5]xor F[9]xor F[10]xor F[11])=false then F[4]:=false else F[4]:=true;
if (F[6]xor F[7]xor F[9]xor F[10]xor F[11])=false then F[8]:=false else F[8]:=true;

for i:=1 to 11 do C[j]:=ord(F[j]); //преобразование типа boolean в тип integer

D[i]:=C;
delete(C,1,11)
end;
for i:=1 to length(A) do write(D[i],’ ‘);

Спасибо, кажется эта проблема решена, но теперь ругается на строку

for j:=1 to 11 do C[j]:=ord(F[j]); //преобразование типа boolean в тип integer

Источник

Program1.pas(23) : Нет перегруженной подпрограммы с такими типами параметров

Ошибка: Нет перегруженной подпрограммы с такими типами параметров
program Zadchahz; var k,n,er,a:integer; s,x,e,f,y1,b:real; y:string; begin read (y);.

Ошибка: нет перегруженной подпрограммы с такими типами параметров
program lr4z1; var n,k:integer; s,x:real; begin n:=15; x:=2.1; s:=0; for k:=1 to n do.

Решение

ZX Spectrum-128, Если вам не сложно, не могли бы вы проверить программу на правильность:
Напишете функцию, которая находит наибольший делитель двух натуральных чисел.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД (7006652,112307574) = 1234

Если не получится, все равно спасибо вам, что заметили мою мелкую, но грубую ошибку.

Ошибка: Нет перегруженной подпрограммы с таким количеством параметров
var x,y,a,b:real; begin assign (a,b, ‘input.txt’); reset (a); reset (b); if (a=0) or (b=0).

Program1.pas(9) : Нет перегруженной подпрограммы с такими типами параметров
В 17 строке выдаёт ошибку: «Program1.pas(9) : Нет перегруженной подпрограммы с такими типами.

Нет перегруженной подпрограммы с такими типами параметров
program pro; uses crt; type man = record im:string; fam:string; data:string; end; var.

Нет перегруженной подпрограммы с такими типами параметров
Нет перегруженной подпрограммы с такими типами параметров. Как исправить? type sar = array.

Источник