Unnamed

program program3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type pole=array[1..20,1..20] of integer;

var
N,i,j:integer;
matice:pole;
f:text;

procedure prehod_radky(radek1,radek2,rad_matice:integer;maticeA:pole; var maticeB:pole);
var i,pom:integer;
begin
  for i := 1 to rad_matice do begin
  pom:=maticeB[radek1,i];
  maticeB[radek1,i]:=maticeA[radek2,i];
  maticeB[radek2,i]:=pom
  end;
end;

begin
  assign(f,'slovacek.txt');
  reset(f);
  i:=1;
  j:=1;
  while not eof(f) do begin
    while not eoln(f) do begin
      read(f,matice[i,j]);
      inc(j)
    end;
    j:=1;
    inc(i);
    readln(f);
  end;
  N:=i-1;
  writeln('puvodni matice: ');
  for i := 1 to N do begin
    for j := 1 to N do
    write(matice[i,j]:3);
    writeln
  end;
  for i := 1 to N-1 do
    prehod_radky(i,i+1,N,matice,matice);
  writeln('matice s prehozenymi radky: ');
  for i := 1 to N do begin
    for j := 1 to N do
    write(matice[i,j]:3);
    writeln
  end;
  close(f);
  readln
end.