Редактирование строк в одном файле и перезапись их в другой - Turbo Pascal

Формулировка задачи:

Помогите, пожалуйста, с заданием. Задание: «Составляющее текстового файла f, поделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, которые входят в неё (с сохранением выходного взаимного порядка как среди цирф, так и среди остальных букв строки)». Пока есть вот такой код, но я не знаю, норм он или нет,а возможности проверить пока нету.

var f,g:text; i,n,l:integer; s,s1:string;
begin
    assign(f, ‘filef.txt’);
    rewrite(f);  
    readln(n);
    for i:=1 to n do
    begin
        readln(s); writeln(f,s); 
    end;
    close(f); 
    reset(f); 
    assign(g, ‘fileg.txt’); 
    rewrite(g); 
       while not eof(f) do
    begin
        readln(f,s);
for length(s) downto i:=1 do
      begin       
 if (s[i]=’0’) or (s[i]=’1’) or (s[i]=’2’) or (s[i]=’3’) or (s[i]=’4’) or (s[i]=’5’) or      (s[i]=’6’) or (s[i]=’7’) or (s[i]=’8’) or (s[i]=’9’)  then
begin
l1:= length(s);
s1:=copy(s,i,1);
delete(s,i,1); 
insert(s,s1,l1);
end;
      end;
        writeln(g,s); 
    end;
    close(f,g);  writeln; 
writeln(‘Второй файл содержит строки:’);
    reset(g); 
    while not eof(g) do 
    begin
        readln(g,s); writeln(s); 
    end;
end.

Решение задачи: «Редактирование строк в одном файле и перезапись их в другой»

textual
                            Листинг программы 
                        

                            var f,g:text; i,j,n,l:integer; s,s1:string;
begin
    assign(f, 'filef.txt');
    rewrite(f);
    readln(n);
    for i:=1 to n do
    begin
        readln(s); writeln(f,s);
    end;
    close(f);
    reset(f);
    assign(g, 'fileg.txt');
    rewrite(g);
       while not eof(f) do
    begin
       readln(f,s);
       s1:='';
       j:=Length(s);
       i:=1;
        repeat
           if s[i] in ['0'..'9']
            then
             begin
               s1:=s1+s[i];
               Delete(s,i,1);
             end
            else
             Inc(i);
        until i>j;
       s:=s+s1;
       Writeln(g,s);
    end;
    close(f);
    close(g); writeln;
    writeln('‘Второй файл содержит строки:’');
    reset(g);
    while not eof(g) do
    begin
        readln(g,s); writeln(s);
    end;
    close(g);
   Readln;
end.
                        