test1.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var f:text;
    n,nr:integer;
begin
assign(f,'f1.txt');
reset(f);
while not eof(f) do
              begin
              nr:=0
              while not eoln(f) do
                                begin
                                nr:=nr+1;
                                read(f,n);
                                end;
                                write(nr,' ');
                                readln(f);
                                end;
readln;
close(f);
end.