pascal 程序 帮忙看下

program subway(input,output);
const o=25;
type sz=array[1..o] of integer;
var
input,p:text;
a:array[1..o,1..o] of integer;
c:array[1..o] of boolean;
q,dm:sz;
u,s,z,k,i,j,m,n:integer;
front,tail:integer;
procedure init;
begin
read(input,n,m,k,s);
for i:=1 to m+n do
for j:=1 to m+n do a[i,j]:=0;

for i:=1 to m do
read(input,dm[i]);
for u:=1 to k do
begin
read(input,i,j);
a[i,j]:=1;
a[j,i]:=1;
end;
end;

procedure bfs(x:integer);
var i,j:integer;
begin
front:=1;
tail:=1;
q[1]:=x;
fillchar(c,sizeof(c),false);
c[q[front]]:=true;

while front<=tail do
begin
for i:=1 to n+m do
for j:=1 to m do
begin
if i=dm[j] then exit;

帮忙看下程序 帮忙编程序 用PASCAL 请帮忙修改PASCAL 程序 帮忙看下这个程序. 帮忙看一下pascal题 请帮忙修改下(pascal) 高手帮忙看一下这段pascal程序有什么错误 帮忙看看这个很简单的pascal程序（Delphi下运行） 帮忙看看这段pascal程序对么？ 帮忙找出这个PASCAL程序的错误