СРОЧНО!!!!!! ОЧЕНЬ НАДЕЮСЬ НА ПОМОЩЬ

Люди, помоготе пожалуйста, кому не сложно с прораммой...
Она должна считывать матрицу из текстого файла (dann.txt) и, в зависимости от вводимого числа (st) возвести все члены этой матрицы в эту степень.
Тут есть часть программы... там её чуть-чуть доработать нужно... Только учтите, что я не особо силен в паскале..

program lab9;
const n=5;
type matrix = array[1..n,1..n] of real;
var i,j,st:integer;
t1:text;
a,b:matrix;
procedure proiz(x,y:matrix;var z:matrix);
var i1,j1,k:integer;
s:real;
Begin
for i1:=1 to n do
begin
for j1:=1 to n do
begin
s:=0;
for k:=1 to n do
s:=s+x[i1,k]*y[k,j1];
z[i1,j1]:=s;
end;
end;
End;


BEGIN;
assign(t1,'C:\206.1\dann.txt');
reset(t1);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(t1,a[i,j]);
write(a[i,j]:5:0);
end;
readln(t1);
writeln;
end;

writeln('st=');
readln(st);

proiz(A,A,B);
for i:=1 to (st-2) do
begin
proiz(B,A,B);
end;
writeln('');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(B[i,j]:5:0);
end;
writeln;
end;
readln;
end.