Перевести код с Turbo Pascal

program format;
uses crt;
var
filename,slovo,stroka:string;
f:text;
dlina,otstup,i:byte;
simvol:char;
begin
slovo:=' ';
repeat
clrscr;
write('введите имя файла :'); readln(filename); write('введите отступ :'); readln(otstup); write('введите длину строки :'); readln(dlina); clrscr;
assign(f,filename);
reset(f);
until ioresult=0;
write(' ':otstup);
while not eof(f) do begin
read(f,simvol);
if ord(simvol)<>10 then begin
if simvol<>' ' then slovo:=slovo+simvol
else begin
if (length(stroka)+length(slovo))>dlina then begin stroka:=' ';
writeln;
write(' ':otstup);
end;
stroka:=stroka+slovo+simvol;
write(slovo,simvol);
slovo:=' ';
end;
end
else begin
write(slovo);
write(' ':otstup);
slovo:=' ';
stroka:=' ';
end;
end;
close(f);
readkey;
end.

uses crt;
var
  filename,slovo,stroka:string;
  f:text;
  dlina,otstup,i:byte;
  simvol:char;
begin
  clrscr;
  slovo:=' ';
  repeat
    write('введите имя файла :'); readln(filename);
    if not fileexists(filename) then WriteLn('Ошибка - нет такого файла!')
  until fileexists(filename);
  write('введите отступ :'); readln(otstup);
  write('введите длину строки :'); readln(dlina);
 
....