Нужны коментарии к программе Pascal

[opt1k]

uses crt;
var
    vmin,vmax,i,j,x,c,d,k,n:integer;
    f:file of integer;
    begin
clrscr;
randomize;
repeat
write('Введите границы диапaзона чисел: от ');
read(vmin);
write(' до ');
read(vmax);
until vmin<vmax;
write('введите размер матрицы, n=');
readln(n);
assign(f,'C:\123.dat');
rewrite(f);
for i:=1 to n*n do
 begin
  x:=vmin+random(vmax-vmin+1);
  write(f,x);
 end;
writeln('Исходный массив:');
reset(f);
x:=trunc(sqrt(filesize(f)));
reset(f);
while not eof(f) do
  begin
  for j:=1 to x do
   begin
    read(f,k);
    write(k:5);
   end;
  writeln;
end;
close(f);
writeln;
k:=0;
n:=x;
reset(f);
for i:=0 to filesize(f) do
 begin
  if (i = k)
  then begin
    seek(f,k);
    read(f,d);
    seek(f,k+n-1);
    read(f,c);
    seek(f,k);
    write(f,c);
    seek(f,k+n-1);
    write(f,d);
    k:=k+x+1;
    n:=n-2;
    end;
   end;
close(f);

  reset(f);
while not eof(f) do
  begin
  for j:=1 to x do
   begin
    read(f,k);
    write(k:5);
   end;
  writeln;
end;
close(f);
writeln;
end.

Кому не трудно подскажите

[Utkin]

Программа создает файл, скидывает туда значения в случайном порядке, затем из файла выводит на экран. Дальше идет какой-то хитрый пересчет и снова вывод на экран. Вообще терзать таким образом винт удел извращенцев. Я понимаю, что задание скорее всего на файлы, но человеки для работы с данными используют промежуточные структуры, например массивы.

[opt1k]

ребят можете помочь переделать программу (которая находится выше), сделать слегка по проще

[gaw4]

хорошо бы само задание по возможности точнее увидеть
на глаз :
в строках с нечетн номерами поменять порядок следования элементов
с нечетными индексами слева направо
аналогично для четных

[gaw4]

мб по заданию именно с номерами записи надо работать

[opt1k]

Сообщение от gaw4

хорошо бы само задание по возможности точнее увидеть
на глаз :
в строках с нечетн номерами поменять порядок следования элементов
с нечетными индексами слева направо
аналогично для четных

у меня только скрин, но могу его залить

[gaw4]

cкрин зачем
вот вы сами как объсните, что вам нужна именно эта программа