Евгений

var F:text;
Key,n,x:integer;
c:char;
s,s1:string;
begin
Write('Shag: ');
Readln(Key);
Writeln('String: ');
Readln(s);
Assign(F,'text.dat');
Rewrite(F);
Writeln(F,s);
Close(F);
s1:='';
for n:=1 to Length(s) do
begin
x:=Ord(s[n])+Key;
if x>255 then x:=x-256+32;
c:=Char(x);
s1:=s1+c;
end;
Assign(F,'text.dat');
Append(F);
Writeln(F);
Writeln(F,s1);
Close(F);
end.