(Pascal) составить матрицу с использованием массива

[Babykaч]

Задание: по условию задачи лабораторной работы №5 составить программу вывода на экран по данному числу n типа string матрицу sxs, (s – количество цифр в числе m), со-стоящую из нулей и цифр числа m, которые расположены: в последнем столбце снизу вверх.
Лабораторная работа №5:

Program laba5_var8;uses crt;
label 1;
var n:array[1..50]of string;s,i,p:byte;err:integer;m:string;
begin
1:write('Введите количество цифр ');readln(s);
if s<8 then begin write('error');goto 1;
p:=i;
end;
for i:=1 to s do begin write('Введите ',i,' элемент');readln(n[i]);end;
writeln;
for p:=Round(s/2)+1 to s do write(n[p],' ');
for p:=1 to Round(s/2) do write(n[p],'  ');
end.

Моя недоработка:

 Program laba5_var8;uses crt;
label 1;
var n:array[1..50]of string;
t:array[1..50,1..50] of string;
s,i,j,p:byte;err:integer;m:string;
begin
p:=i;
1:write('Введите количество цифр ');readln(s);
if s<8 then begin write('error');goto 1;end;writeln;
for i:=1 to s do begin write('Введите ',i,' элемент');readln(n[i]);end;writeln;
for i:=1 to s do write(n[i],'   ');writeln;
for p:=Round(s/2)+1 to s do write(n[p],'   ');
for p:=1 to Round(s/2) do write(n[p],'    ');writeln;
for i:=1 to s do begin
for j:=1 to s do begin
if j=t then t[i,j]:=n[i] else t[i,j]:='0';
end;writeln;end;
for i:=1 to s do write(t[i,j],'   ');
for i:=1 to s do   begin end;writeln;
for i:=1 to s do begin
for j:=1 to s do begin
write(t[i,j],'  ' );end;writeln;end;
end.

[Stilet]

var n:string;i,j:byte;
begin
write('Введите количество цифр ');readln(n);
for i:=1 to length(n) do begin 
 for j:=1 to length(n)-1 do write('0'); writeln(n[i])
end;
writeln;
end.

не?

[Babykaч]

не получается.

[Stilet]

Ну тады соболезную )