шифрования текстового файла

[infern_o]

Помогите составить программу для такого алгоритма. пожалуйста

[BDA]

Если количество символов в файле кратно 4:
В цикле, пока не кончится файл, считываете 4 символа и записываете в другой файл в нужном порядке (переставив местами).

Если длина не кратна 4, то нужно добавить проверку при заполнении буфера 4мя символами (правда, тогда еще нужно подумать, что делать с теми символами, которых не хватает до 4).

[Stilet]

var t:text;s,r:string;i:integer;
begin
 assign(t,'text'); reset(t);
 while not eof(t) do begin
  readln(t,s);
  r:='';
  i:=1;while i<length(s) do begin
   r:=r+copy(s,i+2,2)+copy(s,i,2);
   inc(i,4);
  end;
  writeln(r);
 end;
 close(t); readln;
end.

Подходит в качестве подсказки?

[infern_o]

Program Code;
function crypt(str:String):String;
var
s,temp:string;
i:integer;
begin
s := str;
i:= 1;
while i < length(s)-3 do
begin
temp := s[i+3];
s[i+3] := s[i];
s[i] := temp[1];
i:= i+1;
temp := s[i+3];
s[i+3] := s[i];
s[i] := temp[1];
i:= i+5;
end;
crypt := s;
end;
Var
i : integer;
m,s,temp,temp1 : string;
r,w : text;
PathRead, PathWrite:String;
Begin
writeln('enter way to first file');
readln(PathRead);
writeln('enter way to second file');
readln(PathWrite);
assign(r,PathRead);
assign(w,PathWrite);
reset(r);
rewrite(w);
while not eof(r) do
begin
ReadLn(r,temp);
writeln('text of first file:',temp);
temp1:=temp;
temp := crypt(temp);
writeln('text of second file:',temp);
WriteLn(w,temp);
temp:=crypt(temp);
if temp1=temp then
writeln('true')
else
writeln('false');
end;
close(r);
close(w);
readln;
End.

это программа на другой алгоритм, сейчас попробую вставить вашу подсказку.

[infern_o]

Сообщение от Stilet

var t:text;s,r:string;i:integer;
begin
 assign(t,'text'); reset(t);
 while not eof(t) do begin
  readln(t,s);
  r:='';
  i:=1;while i<length(s) do begin
   r:=r+copy(s,i+2,2)+copy(s,i,2);
   inc(i,4);
  end;
  writeln(r);
 end;
 close(t); readln;
end.

Подходит в качестве подсказки?

что-то не выходит в программу подставить

[Stilet]

не выходит в программу подставить

Оформи этот код в виде функции, как ты сделал с function crypt. Но передавай в нее имя файла, и в assign этот параметр используй.
Да кстати - это пример криптования, он выводит не в файл а на экран.