Помогите пожалуйста с задачей......лаба горит

[Александр НИК-В]

Дана двумерная матрица.Есть ли в ней одинаковые строки?

[RealSHELS]

program _1;
uses crt;
const n=3;
type
 mini=0..1;
 tn=1..n;
 stroka=array[1..n] of mini;
 mas=array[1..n] of stroka;
var
asd:mas;

procedure zapovn(a:tn; var as:mas);
var
i,j:tn;
begin
  randomize;
  for i:=1 to a do
    for j:=1 to a do
     as[i,j]:=random(2);
end;

procedure vuvod(a:tn; as:mas);
var
i,j:tn;
begin
  for i:=1 to a do
   for j:=1 to a do
     if j<>a then write(as[i,j],' ') else writeln(as[i,j]);
end;

procedure obrahunok(a:tn; as:mas);
var i,j,k:tn;
b:boolean;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
     begin
       b:=true;
       for k:=1 to a do
         if as[i,k]<>as[j,k] then
           begin
             b:=false;
             break;
           end;
       if b then writeln(i,' i ',j,' stroki odnakovi');
     end;
end;

begin
  clrscr;
  zapovn(n,asd);
  vuvod(n,asd);
  obrahunok(n,asd);
  readln;
end.

[Александр НИК-В]

А без процедур можешь это же сделать?очень нужно.Заранее спасибо.......

[Horknee]

Так сам убери их-это же очень просто=))

[Sm1Le]

Получилось ?