Выполнить сортировку с помощью прямого обмена и вывести данные и результаты на экран

uses crt;
const max=20;
type index=1..max;
tablica=record
mes: string[60];
tema_rabot:string[60];
avtor:string[40];
time:string[5];
end;
var diplom:array[index] of tablica;
i:integer; j:integer; x: tablica; f:text;
n:index;
begin
write (' откуда брать данные? ');
read (i);
If i=1 then
 
for i:=1 to n do
with  diplom[i] do
begin
writeln('vvedite kol-vo');readln(n);
writeln('tema ');readln(diplom[i].tema_rabot);
writeln('mesyac ');readln(diplom[i].mes);
writeln('familia ');readln(diplom[i].avtor);
writeln('zatrachenoe vremya ');readln(diplom[i].time);
writeln;
end else
if i=2 then
begin
assign (f, 'd:\1.txt');
reset (f);
for i:=1 to n do
readln (f, diplom[i].tema_rabot);
readln (f, diplom[i].mes);
readln (f, diplom[i].avtor);
readln (f, diplom[i].time);
close(f);
end;
begin
for i:=1 to n do
 for j:=n downto 2 do
 if diplom[j-1].mes>diplom[j].mes then
 x:=diplom[j-1];diplom[j-1]:=diplom[j];diplom[j]:=x;
 end;
 for i:=1 to n do
 write(diplom[i].tema_rabot,'   ',diplom[i].mes,'   ',diplom[i].avtor,'   ',diplom[i].time);
 writeln;
 end.

uses crt;
const max=20;
type index=1..max;
tablica=record
        mes: index;
        tema_rabot:string[60];
        avtor:string[40];
        time:index;
        end;
var diplom:array[index] of tablica;
    i:integer; j:integer;
    x: tablica;
    f:text;
    n:index;
begin
clrscr;
write ('ЋвЄг¤* ўў®¤Ёвм ¤***лҐ? 1-б Є«*ўЁ*вгал 2-Ё§ д*©«*');
readln (i);
If i=1 then
 begin
  writeln('vvedite kol-vo');readln(n);
  for j:=1 to n do
   begin
    writeln('Diplom ',j);
    with  diplom[j] do
     begin
      write('tema: ');readln(tema_rabot);
      repeat
      write('mesyac [1..12]: ');readln(mes);
      until mes in [1..12];
      write('familia: ');readln(avtor);
      repeat
      write('zatrachenoe vremya [1..10]: ');readln(time);
      until time in [1..10];
    end;
   end;
 end
else
 begin
  assign (f, 'd:\1.txt');
  reset (f);
  n:=1;
  while not eof(f) do
   begin
    readln (f, diplom[n].tema_rabot);
    readln (f, diplom[n].mes);
    readln (f, diplom[n].avtor);
    readln (f, diplom[n].time);
    n:=n+1;
   end;
  close(f);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if diplom[i].mes>diplom[j].mes then
 begin
  x:=diplom[i];
  diplom[i]:=diplom[j];
  diplom[j]:=x;
 end;
for i:=1 to n do
writeln(diplom[i].tema_rabot,'   ',diplom[i].mes,'   ',diplom[i].avtor,'   ',diplom[i].time);
readln
end.