Сумма первых трех положительных элементов

uses crt;
const nmax=200;
var a:array[1..nmax] of integer;
    n,i,k,s:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
k:=0;
s:=0;
i:=1;
while(i<=n)and(k<3) do
if a[i]>0 then
 begin
  k:=k+1;
  s:=s+a[i];
  i:=i+1;
 end
else i:=i+1;
if k<3 then write('В массиве нет трех положительных элементов')
else write('Сумма первых трех положительных=',s);
end.

program ex11;
uses crt;
var a:array [1..100] of integer;
    n,kol,i:integer;
    s:real;
begin
write('ââåäèòå n') ;
readln(n);
writeln('ââåäèòå ìàññèâ');
for i:=1 to n do begin write ('a[',i,']=');
read(a[i]);
end;
kol:=0;
i:=1;
while (i<=n) and (kol<3) do begin
if a[i]>0 then kol:=kol+1;
               s:=s+a[i];
                i:=i+1;
end;
 i:=i+1;
if kol=3 then writeln ('s= ' , s)
else writeln ('íå ñóùåñòâóåò');
end.

k:=0;
s:=0;
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
  if (a[i]>0) and (k<>3) then
  begin
   k:=k+1;
   s:=s+a[i];
  end;
end;

else i:=i+1;
if kol<3 then writeln ('íå ñóùåñòâóåò ')
else write ('s=',s);
end.

else i:=i+1;//здесь цикл while закончился
if kol<3 then writeln ('не существует ')//это уже вне цикла
else write ('s=',s);
end.

else i:=i+1;
writeln('Конец цикла');
if kol<3 then writeln ('не существует ')
else write ('s=',s);
end.