Компилятор в паскале пишет: строка 18 Нет перегруженной подпрограммы с такими типами параметров program Shifr; var s1,s2:string; i,n,k,p:integer;key:integer; //ключ шифрования f1,f2:text; BEGIN assign(f1,'Dannie.txt'); assign(f2,'Shifr.txt'); reset(f1); rewrite(f2); writeln('Введите ключ шифрования от 1 до 33:'); readln(key); while Not(Eof(f1)) do begin readln(f1,s1);s2:=''; for i:=1 to length(s1) dos2:=s2+chr(ord(s1[i]+key)); writeln(f2,s2); end; close(f1); close(f2); END.