Задание на тему "Файлы" в Pascal

[Kot_Bayun]

Задание на тему "Файлы" в Pascal

Прошу помощи с написанием кода для данного задания: записать в файл с расширением .dat строку (с клавиатуры), содержащую латинские строчные буквы и цифры. Закодировать строку шифром Цезаря (шаг ввести с клавиатуры) и записать в этот же файл.

 

[Евгений]

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.

 

[Kot_Bayun]

Благодарю за вашу помощь, все работает