Нет перегруженной подпрограммы с такими типами параметров - PascalABC.NET (26415)

program f;
var s,k,v,w:char;//s-slovar,k-key,v-vhod,w-vihod
az,key,vhod,whod:text;
lk,ls,lv,i,j,sj,si:int64;
begin
assign(az,'alphabet.txt');reset(az);
assign(key,'key.txt');reset(key);
assign(vhod,'vhod.txt');reset(vhod);
assign(whod,'whod.txt');rewrite(whod);
lk:=filesize(key);
ls:=filesize(az);
lv:=filesize(vhod);
for i:=1 to lv do begin
if (((i-1) mod lk)=0) then seek(key,0);
read(key,k);
read(vhod,v);
 
seek(az,0);
for j:=1 to ls do begin
read(az,s);
if s=v then
sj:=j;end;
 
seek(az,0);
for j:=1 to ls do begin
read(az,s);
if s=v then
si:=j;end;

seek(az,sj+si);
read(az,w);
write(whod,w);
end;
close(az);close(whod);close(vhod);close(key);
end.

 lk:=filesize(key);