Программа выравнивающая слова в тексте на границу кратную 8.

[Zemfira]

работает только для одной строчки. Как сделать рабочую для всего текста?

program laba5;
var f1, f2: text;
s, s1: string;
k, i, z, p: integer;
begin
assign(f1,'text1.txt');
assign (f2,'result.txt');
reset (f1);
read(f1,s);
rewrite(f2);
s1:='';
p:=0;
for i:=1 to length(s) do
if s[i]=' ' then begin
z:=i-p;
p:=i;
if z<8 then
begin
for k:=1 to (9-(z mod 8)) do
s1:=s1+' ';
end
else s1:=s1+' ';
end
else s1:=s1+s[i];
writeln (f2,s1);
close (f2);
close (f1)
end.

[Sciv]

program laba5;

var f1, f2: text;
    s, s1: string;
    k, i, z, p: integer;

begin
  assign(f1,'text1.txt');
  assign (f2,'result.txt');
  reset (f1);
  rewrite(f2);
  while not Eof(F1) do begin
    readln(f1,s);
    s1:='';
    p:=0;
    for i:=1 to length(s) do
      if s[i]=' ' then begin
        z:=i-p;
        p:=i;
        if z<8 then begin
          for k:=1 to (9-(z mod 8)) do s1:=s1+' ';
        end
        else s1:=s1+' ';
      end
      else s1:=s1+s[i];
    writeln (f2,s1);
  end;
  close (f2);
  close (f1)
end.

[Poma][a]

Я не вникал в суть Вашего кода. Но возможно тема (тыц) поможет Вам.

[Zemfira]

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

  while not Eof(F1) do begin

а другим способом можно?

так вообще не работает

[Sciv]

так вообще не работает

то есть в файле F2 ничего нет, не то записывается или вообще выдает ошибку? Как именно не работает?

[Zemfira]

записывается все в одну строчку, если символов больше 255 то пишет ошибку

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

то есть в файле F2 ничего нет, не то записывается или вообще выдает ошибку? Как именно не работает?

в F2 все строчки записываются в одну