Проверить чтение файла + ...

Program ex1;
Var fx:text;
tm,tm1:real;
i:integer;
Begin 
assing(fx,'Proba.txt');
rewrite(fx);
for i:=1 to 7 do
Begin 
read(tm);
write(fx, tm:6:3);
end;
close(fx);
reset(fx);
for i:=1 to 7 do
Begin 
read(fx,tm1);
rewrite(tm1:6:3);
end;
end.

Program ex1;
Var fx,fx1,fx2:text;
r1,r:real;
c,c1:char;
s,s1:string;
i:integer;
 begin
  writeln('Vvedite veshchestvennyye chisla');
  assign (fx,'Real.txt');
  rewrite(fx);
  for i:=1 to 7 do
     Begin
       readln(r);
       write(fx,r:6:3);
     end;
  close(fx);
  reset(fx);
  for i:=1 to 7 do
   begin
   read(fx,r1);
   write(r1:6:3);
  end;
  write('Vvedite simvoly');
  assign(fx1,'char.txt');
  rewrite(fx1);
   for i:=1 to 15 do
    begin
     read(c);
     write(fx1,c);
    end;
  close(fx1);
  reset(fx1);
  for i:=1 to 15 do
   begin
    read(fx1,c1);
    write(c1);
   end;
   writeln('Vvedite strokovyy fayl');
   assign(fx2,'string.txt's);
   rewrite(fx2);
    for i:=1 to 20 do
     begin
     read(s);
     write(fx2,s);
     end;
     close(fx2);
     reset(fx2);
      for i:=1 to 20 do
       begin
        read(fx2,s1);
        write(s1);
       end;
end.