Решение транспортной задачи. Курсовая.

[SkoRp45]

Здравствуйте помогите пожалуйста с задачей. И так проблема в том что программа запускается но не выдает решения не знаю в чём проблема

ЗАРАНЕЕ СПАСИБО ВСЕМ.

Вот сам код:

program sev_zap;
uses crt;
const n=5;
m=5;
var a:array[1..m] of integer;
b:array[1..m] of integer;
a1:array [1..n] of integer;
b1: array [1..m] of integer;
c:array [1..n,1..m] of integer;
i,j,k,x,y,s1,s2:integer;
procedure vvod_klav;
begin
i:=1;
k:=0;
s1:=0;
while (k=0) and (i<n) do
begin
write ('vvod zap,',i,'postav:');
readln(a[i]);
if a[i]=0 then
begin
k:=1;
i:=i-1;
end
else
begin
a1[i]:=a[i];
s1:=s1+a1[i];
i:=i+1;
end;
end;
j:=1;
k:=0;
s2:=0;
textcolor(5);
while (k=0) and (j<m) do
begin
write ('vvod zap',j,'potreb:');
readln(b[j]);
if b[j]=0 then
begin
k:=1;
j:=j-1;
end
else
begin
b1[j]:=b[j];
s2:=s2+b1[j];
j:=j+1;
end;
end;
textcolor(yellow);
k:=0;
if s1<s2 then
begin
writeln ('error vvod, proverte many');
readln;
halt;
end;
if(s2<s1) and (k=0) then
begin
writeln ('error vvod, proverte many');
readln;
halt;
end;
x:=i;
y:=j;
end;
begin
textcolor(white);
clrscr;
writeln('sev_zap');
writeln;
vvod_klav;
repeat
k:=0;
if(b[j]-a[i]<0) then
begin
c[i,j]:=a[i]-b[j];
b[j]:=0;
j:=j-1;
k:=1;
end;
if(b[j]-a[i]>0)and(k=0)then
begin
c[i,j]:=a[i];
b[j]:=b[j]-a[i];
a[i]:=0;
i:=i-1;
k:=1;
end;
if(b[j]-a[i]=0)and(k=0)then
begin
c[i,j]:=a[i];
a[i]:=0;
b[j]:=0;
i:=i-1;
j:=j-1;
end;
if(i=0)or(j=0)then break;
until false;
{viivod na ekran}
clrscr;
textcolor(white);
for i:=1 to x do
if j=y then write(c[i,j]:6,' | ',a1[i])
else
write(c[i,j]:6);
writeln;
end.
write('');
for i:=1 to y*6-4 do
write(#196);
writeln('');
for j:=1 to y do
write(b 1[j]:6);
readln;
end.