Матрица, while repeat Опции

[Lenka]

Никак не могу для while и repeat сделать эту задачу

Код

program Lab3; uses crt;
label vvod;
var tab:array [1..5,1..5] of integer;
   pob:array [1..5] of integer;
   por:array [1..5] of integer;
   a,b,chislo:integer;
BEGIN

clrscr;

for a:=1 to 5 do
for b:=1 to 5 do
   begin
   if a=b then tab[a,b]:=0
   else vvod:
       begin
       write('Vvedite znachenie yacheyki (',a,',',b,'): ');
       readln(tab[a,b]);
       if (tab[a,b]<0) or (tab[a,b]>2) then
           begin
           writeln('Nevernoe znachenie. Povtorite eshe raz.');
           goto vvod;
           end;
       end;
   end;

writeln;
writeln('Poluchennaya matritsa:');
for a:=1 to 5 do
writeln(tab[a,1],' ',tab[a,2],' ',tab[a,3],' ',tab[a,4],' ',tab[a,5]);

for a:=1 to 5 do
   begin
   pob[a]:=0; por[a]:=0;
   for b:=1 to 5 do
       begin
       if a<>b then
          begin
          if tab[a,b]=0 then por[a]:=por[a]+1;
          if tab[a,b]=2 then pob[a]:=pob[a]+1;
          end
       else
       end;
   end;

chislo:=0;
for a:=1 to 5 do
if pob[a]>por[a] then chislo:=chislo+1;

writeln;
writeln('Chislo komand, u kotoryh pobed bolshe, chem porazheniy, ravno ',chislo);

readln;

END.