Помогите преобразить программу, чтобы она делала то же самое, но выглядела по дугому

program mes;
uses crt;
var
E,I,I1,F1,F2:real;
em,a0,a1,a2,a3,R,p1,k:real;
n,n1:integer;
F:text;
begin
writeln('введите а 0, а1, а2, а3');
a0:=0.351;
a1:= 1.9;
a2:=-3.7;
a3:=2.5;
writeln('em,k');
em:=1.9;
k:=0.00001;
R:=1,5;
n1:=1;
Assign(F,'H:/aaa.txt');
Rewrite(F);
for n:=0 to 99 do
begin
I:=-0.5;
t:=n/17001020.06120367222;
E:=em*sin(2*pi*t)*170000);
repeat
p1:=E-(a0+a1*I+a2*I*I+a3*I*I*I)-I*R;
I:=I+k;
if I>(1.9/R) then begin writeln(1.9/R); exit ; end;
until abs(p1) <= 0.0001;
if I<0 then I:=0;
write('I',n1,' = ', I:4:3,' ');
n1:=n1+1;
writeln(F,I:4:3);
end;
close(F);
end.