проверьте задачу не работает и с не выдает?

Question

program p0;
type mas=array [1..10] of integer;
var a:mas;
i,s,n,k,k1,min,max:integer;
begin
writeln('vvedite N');
read (N);
s:=0;
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if a[i]<0 then s:=s+a[i];
writeln('s=',s);
s:=1;
for i:=1 to N do
read (a[i]);
max:=a[1];
for i:=1 to N do
if (max(a[i])then begin max:=a[i];k:=1;end;
min:=a[1];
for i:=1 to N do
if (min)a[i])then begin min:=a[i];k1:=1;end;
if k<k1 then begin
for i:=k1+1 to (k-1) do
s:=s*a[i];end else begin
for i:=k+1 to (k1-1) do
s:=s*a[i]; end;
writeln('max=1',max,'min=',min,'s=',s);
end.

Arsen Gevorgyan · Accepted Answer

Тут, видимо, код зверски искажен, множество ошибок. Помещай код на pastebin.com, а сюда - ссылку.