Исправить ошибки в данной программе.

[SSarox]

program qq;
uses crt;
var
a:array[1..255,1..255] of integer;
Tab:array[1..255,1..255] of integer;
i,j,n,m:integer;
str:integer;
c:char;
procedure vvodstroki(var n:integer);
begin
repeat
write('введите n строк:');
readln(n);
if n=0 then writeln ('n и m не равны нулю повторите ввод заново');
until (n<>0)and(n>0);
end;
procedure vvodstolbcov (var m:integer);
begin
repeat
write('введите m столбцов:');
readln(m);
if m=0 then writeln ('n и m не равны нулю повторите ввод заново');
until (m<>0)and(m>0);
end;



procedure prog1 (a:array[1..255,1..255] of integer;
Tab:array[1..255,1..255] of integer;
i,j,n,m:integer;
c:char;
str:integer);
begin
Clrscr;
write ('1 матрица');
writeln;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=5-random(15);
write(a[i,j]:6);
WriteLn('возвести в куб (1) или квадрат(2)?');
ReadLn(str);
case str of
1:begin
if a[i,j]<0 then tab[i,j]:=(a[i,j])*(a[i,j])*(a[i,j]);
end;
2:begin
if a[i,j]<0 then tab[i,j]:=sqr(a[i,j]);
end;
end;
writeln;
write ('2 матрица');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
if tab[i,j]<>0 then
write(tab[i,j]:6) else write('*':6)
end;
writeln;
end;
begin
Window(2,2,80,80);
Gotoxy (40,23);
WriteLn ('любая кнопка для продолжения');
c:=readkey;
Clrscr;
vvodstroki (n);
vvodstolbcov (m);
prog1 (n,m,str,a[i,j],tab[i,j]);
end;
end.

[Vanta11a]

Это какие именно ошибки, помимо прокладки?
Ручки отсохнут написать? Клавиатура развалится?