Используя стек, создать другой текстовый файл, в котором числа будут записаны в обратном порядке - Free Pascal

var f1,f2:text;
s,s1,s2:string;
i,j:integer;
begin
assign(f1,'fileIn.txt');
assign(f2,'fileOut.txt');
Reset(f1);
Rewrite(f2);
while not EOF(f1) do begin
readln(f1,s1);
s:='';
s2:='';
for i:=1 to length(s1) do begin
  if (s1[i]<'0') or (s1[i]> '9') then begin
    if s='' then s2:=s2+s[i] else begin
      for j:=1 to length(s) do s2:=s2+s[j];
      s:='';
      s2:=s2+s[i];
    end;
  end else s:=s1[i]+s;
end;
if s<>'' then for j:=1 to length(s) do s2:=s2+s[j];
writeln(f2,s2);
end;
Close(f2);
Close(f1);
end.

var f1,f2:text;
s,s1,s2:string;
i,j:integer;
begin
assign(f1,'fileIn.txt');
assign(f2,'fileOut.txt');
Reset(f1);
Rewrite(f2);
while not EOF(f1) do begin
readln(f1,s1);
s:='';
s2:='';
for i:=1 to length(s1) do begin
  if (s1[i]<'0') or (s1[i]> '9') then begin
    if s='' then s2:=s2+s1[i] else begin
      for j:=1 to length(s) do s2:=s2+s[j];
      s:='';
      s2:=s2+s[i];
    end;
  end else s:=s1[i]+s;
end;
if s<>'' then for j:=1 to length(s) do s2:=s2+s[j];
writeln(f2,s2);
end;
Close(f2);
Close(f1);
end.

var f1,f2:text;
s,s1,s2:string;
i,j:integer;
begin
assign(f1,'fileIn.txt');
assign(f2,'fileOut.txt');
Reset(f1);
Rewrite(f2);
while not EOF(f1) do begin
readln(f1,s1);
s:='';
s2:='';
for i:=1 to length(s1) do begin
  if (s1[i]<'0') or (s1[i]> '9') then begin
    if s='' then s2:=s2+s1[i] else begin
      for j:=1 to length(s) do s2:=s2+s[j];
      s:='';
      s2:=s2+s1[i];
    end;
  end else s:=s1[i]+s;
end;
if s<>'' then for j:=1 to length(s) do s2:=s2+s[j];
writeln(f2,s2);
end;
Close(f2);
Close(f1);
end.