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

program LOL;
uses crt;
var v,s:string; {s - ñòðîêà â ôàéëå f}
f, g: text;
n,i,j,k:integer;
begin
     clrscr;
     assign (f,'abc.txt'); {îáåñïå÷èâàåò ñâÿçü ôàéëîâîé ïåðåìåííîé ïðîãðàììû ñ ðåàëüíûì ôàéëîì íà äèñêå}
     assign (g,'def.txt'); {îáåñïå÷èâàåò ñâÿçü ôàéëîâîé ïåðåìåííîé ïðîãðàììû ñ ðåàëüíûì ôàéëîì íà äèñêå}
     reset (f); {îòêðûòü ôàéë abc.txt íà ÷òåíèå}
     rewrite (g); {îòêðûòü ôàéë def.txt íà çàïèñü}
     readln (f, s);
     n:=length(s); {ÓÇÍÀ¨Ì ÄËÈÍÓ ÑÒÐÎÊÈ}
     v:=s;         {ÊÎÏÈÐÓÅÌ ÄÀÍÍÛÅ ÈÇ ÑÒÐÎÊÈ}
     for i:=1 to n do                                     {öèêëû íàõîæäåíèÿ îäèííàêîâûõ ýëåìåíòîâ}
                     begin
                          for j:=1 to n do
                                          begin
                                               if (v[i]=v[j])and (i<>j) then delete (v, j, 1);
                                          end;
                     end;
     writeln('Èñõîäíàÿ ñòðîêà ôàéëà ',v);
     writeln('Îòðåäàêòèðîâàííàÿ ñòðîêà ôàéëà ',s);
     write(g,v);
     close(f);
     close(g);
end.

program m1;
uses
  crt;
var
  f,f1 : file of integer;
  M,N,i,j,k,z : byte;
  a, b : integer;
  bol : boolean;
begin
  clrscr;
  write('Размер матрицы (M*N) : ');
  readln(M,N);
  assign(f,'FileMatr.dat');
  rewrite(f);
  randomize;
  for i := 1 to M*N do
    write(f,random(41)-20);
  reset(f);
  writeln('Файл, содержащий элементы числовой матрицы :');
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  reset(f);
  writeln;
  writeln('Числовая матрица : ');
  for i := 1 to M do begin
   for j := 1 to N do begin
    read(f,a);
    write(a:4);
    end;
   writeln;
   end;
  assign(f1,'NewFile.dat');
  rewrite(f1);
  reset(f);
  k := 0;
  for i := 1 to M*N do
    begin
     inc(k);
     seek(f,k-1);
     read(f,a);
     if k>N then z := N - k mod N
     else z := N-k;
     bol := true;
     if z<N then
     for j := 1 to z do
      begin
       read(f,b);
       if a=b then bol := false;
      end;
     if bol then write(f1,a);
    end;
  writeln('Исходный файл, после удаления повторяющихся в рядах элементов :');
  reset(f1);
  while not eof(f1) do
   begin
    read(f1,a);
    write(a:4);
   end;
  close(f);
  close(f1);
  readln;
end.