Программа не выводит результат

procedure VivodMatr(n,k,s:integer; var a:MyArray; Sum:ItArray);
 var
    i,j:integer;
 begin
 Clrscr;
 Gotoxy(16,4);
 Textcolor(yellow);
   Textcolor(lightgreen);
  writeln;
  writeln;
  writeln('Исходн. матрица:');
  for i:=1 to n do
    begin
      for j:=1 to k do
        write(a[i,j]:4, ' ');
      writeln;
    end;
 
  writeln;
  writeln;
  textcolor(lightgreen);
    writeln('Результаты работы:');
 
    for i:=1 to n do
  begin
  if z=1 then
  for i:=1 to n do
   write(Sum[i], ' ');
   end;
 
  for j:=1 to k do
  begin
  if z=2 then
  for j:=1 to k do
  write(Sum[j], ' ');
  end;
 
  if z=3 then
   write(s, ' ');
 
  if z=4 then
  write(s, ' ');
 
  if z=5 then
  write(s, ' ');
 
  if z=6 then
  write(s, ' ');
 end;
 
 
 begin
 VvodInformacOStud;
 repeat
 clrscr;
 VvodRazmMatr(n,k,error);
 clrscr;
 VvodElemMatr(n,k,max,a);
 clrscr;
 ViborIObrabMatr(n,k);
 VivodMatr(n,k,s,a,sum);
   writeln;
   writeln;
  textcolor(white);
 Writeln('Хотите обработать еще? (Y-да, N-нет)');
 repeat
  ch:=readkey;
  if (ch=#78) or (ch=#110) then Exit;
  until (ch=#89) or (ch=#121)
  until false;
End.

 for i:=1 to n do
  begin
  if z=1 then
  for i:=1 to n do
   write(Sum[i], ' ');
   end;

 for i:=1 to n do
  begin
  if z=1 then
  for j:=1 to n do
   write(Sum[j], ' ');
   end;