Cześć mam taki mały problem mam napisać program wprowadzający liczby całkowite do tablicy liczby T i wyświetlający tylko dodatnie i napisałam tylko chyba nie do końca dobrze proszę o pomoc!
program zad33;
uses crt;
var i :integer;
const n=10;
var t:array[1..n] of integer;

procedure wczytaj;
begin
clrscr;
for i:=1 to n do
begin
writeln('podaj liczby całkowite' ,i,'.element');
readln(t[i]);
end;
end;

procedure wypisz;
begin
for i:=1 to n do write (t[i],' ');
If t[i]>0 than writeln('liczby dodatnie');
end;

begin
wczytaj;
writeln;
wypisz;
readln;
end.

Następnym razem proszę założyć nowy temat a nie prosić o pomoc w innym temacie.

-- WebNuLL

Jedyne co bym zmienił to:
na

dziękuję