SWAPPING TWO ROWS OF AN ARRAY

program doi_dong;
uses crt;
var F1,F2:text;A:array[1..100,1..100] of integer;
   i,j,m,n,x,y,C:integer;
begin
 clrscr;
 Assign(F1,'game.inp'); Reset(F1);
 Read(F1,m);Read(F1,n);
 For i:=1 to m do
   Begin
    Readln(F1);
    For j:=1 to  n do
     Read(F1,A[i,j]);    end;
 Close(f1);
 Write('Nhap 2 dong muon chuyen doi: ');readln(x,y);
 For j:=1 to n do
  begin
   C:=A[x,j]; A[x,j]:=A[y,j]; A[y,j]:=C; end;
 For i:=1 to m do
  begin
  writeln;
  For j:=1 to n do
    Write(A[i,j]:5);
  end;
  readln
  end.