Сортировка методом прямого включения

program example4;
var
f1, f2 :text;
i, n, j, z : integer;
M: array[1..100] of integer;
begin
assign(f1,'input.dat');
assign(f2,'output.dat');
reset(f1);
rewrite(f2);
i:=1;
while not eof(f1) do
begin
readln(f1,M[i]);
write(M[i], ' ');
i:=i+1;
end;
n:=i-1;
for i:=2 to n do
begin
z:=M[i]; j:=i-1;
while (j>0) and (z>M[j]) do
begin
M[j+1]:=M[j];
j:=j-1;
end;
M[j+1]:=z;
end;
writeln;
for i:=1 to n do
begin
writeln(f2,M[i]);
writeln(M[i]);
end;
end.

program example4;
var f1, f2 :text;
    i, n, j, z : integer;
    M: array[1..100] of integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
i:=1;
while not eof(f1) do
 begin
  read(f1,M[i]);
  write(M[i], ' ');
  i:=i+1;
 end;
n:=i-1;
for i:=2 to n do
 begin
  z:=M[i];
  j:=i-1;
  while (j>0) and (z<M[j]) do//сменить знак > на <
   begin
    M[j+1]:=M[j];
    j:=j-1;
   end;
 M[j+1]:=z;
end;
writeln;
for i:=1 to n do
 begin
  write(f2,' ',M[i]);
  write(' ',M[i]);
 end;
close(f1);
close(f2);
end.