За один просмотр файла вывести на экраны сначала суммы каждых двух чисел, а затем разницы каждых двух чисел

program cherga;
uses crt;
type
    str=string[20];
    ptr=^element;
    element=record
      dani:str;
      next:ptr;
      end;
var f:text;  head,tail:ptr;
    name:string;
procedure init_file(var f:text);
var s:string;
begin
     rewrite(f);
     writeln('vvedute strochku slov, megdy slovamu probelu. konez-#');
     readln(s);
     while s<>'#'do
     begin
          writeln(f,s);
          readln(s);
     end;
     close(f);
end;
procedure vst_ch(var head,tail:ptr; s:str);
var q:ptr;
begin
     new(q);
     q^.dani:=s;
     q^.next:=nil;
     if head=nil then
            begin head:=q; tail:=q; end
            else
            begin tail^.next:=q;  tail:=q; end;
end;
procedure write_file(var f:text; var head, tail:ptr);
var
    s,slovo:string; i,j:byte;
begin
    reset(f);
    writeln('slova fayla, dluna kotoruh ne bolyshe 3');
    while not(eof(f)) do
    begin
         readln(f,s);
         slovo:='';
    for i:=1 to length(s) do
    begin
    if s[i]<>'' then slovo:=slovo+s[i]
            else
            if i<length(s) then
               if s[i+1]<>'' then
               begin
                   if length(slovo)<4 then
                      begin
                           for j:=1 to length(slovo) do
                           write(slovo[j]);
                           write(' ');
                      slovo:='';
                   end;
               end;
            end;
 if (i=length(s)) and (slovo<>'') then
              if length(slovo)<4 then
                 begin
                      for j:=1 to length(slovo) do
                      write(slovo[j]);
                           write(' ');
                   end
                   else
                        vst_ch(head,tail,slovo);
               end;
               close(f);
            end;
procedure dr_cherga(var head,tail:ptr);
var x:ptr; slovo:str; j:integer;
begin
     tail:=nil;
     while (head<>nil) do
     begin
     x:=head;
     slovo:=x^.dani;
       for j:=1 to length(slovo) do
         write(slovo[j]);
       write('  ');
       head:=head^.next;
       dispose(x);
     end;
end;
BEGIN
clrscr;
head:=nil;
tail:=nil;
writeln('vvedute uma fayla');
readln(name);
assign(f,name);
init_file(f);
write_file(f,head,tail);
writeln;
writeln('slova fayla dluna kororux bolshe 3');
dr_cherga(head,tail);
END.