Продам Аниксы на любой вкус.НЕ ДОРОГО

var
f_in: text;
f_out: file;
name_in, name_out: string;
buffer: array[1..8] of integer;
i,k: integer;
begin
{$I-}
write('Входной файл: ');readln(name_in);
assign(f_in,name_in);
reset(f_in);
if IOResult <> 0 then begin
writeln ('Файл не найден!');
exit
end;
write('Выходной файл: ');readln(name_out);
assign(f_out,name_out);
rewrite(f_out,sizeof(integer)*8);
{$I+}
i := 0;
while not eof(f_in) do begin
inc(i);
read(f_in,buffer);
if i = 8 then begin
blockwrite(f_out,buffer,1);
i := 0
end;
end;
if i <> 0 then begin
for k:=i+1 to 8 do buffer[k] := 0;
blockwrite(f_out,buffer,1);
end;
close(f_in);
close(f_out);

readln

фу фу фу паскаль...

YOINK ;D