Pascal/Turbo Pascal - Ayuda con este error

program uno;

var

vector: array [1..5,1..5] of integer

z,j:integer;

vec:vector;

num:integer;

begin

vec[1]:=1;

vec[2]:=2;

vec[3]:=3;

vec[4]:=4;

vec[5]:=5;

for z:= 1 to 5 do

writeln(vec[z]);

end;

begin

vec[1]:=1;

vec[2]:=2;

vec[3]:=3;

vec[4]:=4;

vec[5]:=5;

for j:= 1 to 5 do

writeln(vec[j]);

end;

readln;

end.

uses crt;

var

	vector:array [1..5,1..5] of integer;

	i,j:byte;

begin

	clrscr;

	for i:=1 to 5 do begin

		for j:=1 to 5 do

			vector[i][j]:=j;

	end;

	for i:=1 to 5 do begin

		for j:=1 to 5 do

			write(vector[i][j],' ');

		writeln;

	end;

end.

{El array que pones de ves de tratarlo así,

esto vector: array [1..5,1..5] of integer de veria ser un type no un var}

program uno;

var

vector: array [1..5,1..5] of integer;

z,j:integer;

num:integer;

begin

vector[1,1]:=1;

vector[1,2]:=2;

vector[1,3]:=3;

vector[1,4]:=4;

vector[1,5]:=5;

for z:= 1 to 5 do

write(vector[1,z]);

writeln;

vector[2,1]:=1;

vector[2,2]:=2;

vector[2,3]:=3;

vector[2,4]:=4;

vector[2,5]:=5;

for j:= 1 to 5 do

write(vector[2,j]);

writeln;

vector[3,1]:=1;

vector[3,2]:=2;

vector[3,3]:=3;

vector[3,4]:=4;

vector[3,5]:=5;

for j:= 1 to 5 do

write(vector[3,j]);

writeln;

vector[4,1]:=1;

vector[4,2]:=2;

vector[4,3]:=3;

vector[4,4]:=4;

vector[4,5]:=5;

for j:= 1 to 5 do

write(vector[3,j]);

writeln;

vector[5,1]:=1;

vector[5,2]:=2;

vector[5,3]:=3;

vector[5,4]:=4;

vector[5,5]:=5;

for j:= 1 to 5 do

write(vector[3,j]);

writeln;

readln;

end.