Поменяйте плз метку на репит и унтил)

[MerZavetZ]

program matrix;
uses crt;
label t,m,n,v;
var a:array [1..10,1..10] of integer;
i,j,summ1,summ2,proiz,z,x,o,p:integ er;
begin
clrscr;
m:
writeln('Vvedite koli4estvo strok ne bolshe 10');
readln(z);
if i>10 then goto m;
t:
writeln('Vvedite koli4estvo stolbcov ne bolshe 10');
readln(x);
if j>10 then goto t;
writeln('vvedite elementi');
for i:=1 to z do
for j:=1 to x do
begin
readln(a[i][j]);
end;
writeln('Vash massiv');
for i:=1 to z do
begin
for j:=1 to x do
write(a[i][j]:4);
writeln;
end;
n:
writeln('Vvedite stroky symmy kotoroi nado pos4itat');
readln(o);
if o>z then goto n;
v:
writeln('Vvedite stolbec summy kotorogo nado pos4itat');
readln(p);
for I:=1 to z do
summ2:=summ2+a[i][p];

for j:=1 to x do
summ1:=summ1+a[o][j];
{end;}
{end;}
writeln(' Symma ',o,' stroki: ',summ1);
writeln(' Symma ',p,' stolbca: ',summ2);
writeln(' ix proizvedenie: ',summ1*summ2);
readln;
end.

Поменяйте плз метки на репиты и унтилы плз

[alex_fcsm]

program matrix;
uses crt;
var a:array [1..10,1..10] of integer;
i,j,summ1,summ2,proiz,z,x,o,p:integer;
begin
clrscr;
repeat
clrscr;
writeln('Vvedite koli4estvo strok ne bolshe 10');
readln(z);
until (z<=10)and(z>=1);
repeat
writeln('Vvedite koli4estvo stolbcov ne bolshe 10');
readln(x);
until (x<=10)and(x>=1);
writeln('vvedite elementi');
for i:=1 to z do
for j:=1 to x do
begin
readln(a[i,j]);
end;
clrscr;
writeln('Vash massiv');
for i:=1 to z do
begin
for j:=1 to x do
write(a[i,j]:4);
writeln;
end;
repeat
writeln('Vvedite stroky symmy kotoroi nado pos4itat');
readln(o);
until (o<=z)and(o>=1);
repeat
writeln('Vvedite stolbec summy kotorogo nado pos4itat');
readln(p);
until (p<=x)and(p>=1);
summ2:=0;
for I:=1 to z do
summ2:=summ2+a[i,p];
summ1:=0;
for j:=1 to x do
summ1:=summ1+a[o,j];
{end;}
{end;}
writeln(' Symma ',o,' stroki: ',summ1);
writeln(' Symma ',p,' stolbca: ',summ2);
writeln(' ix proizvedenie: ',summ1*summ2);
readln;
end.