Tämä ohjelma laskee pascalilla komento riviparametrillä annettusta tekstitiedostosta rivien määrän ja tulostaa sen. Vähän niin kuin linuxin wc -l
var a:longint;
f:text;
begin
assign(f,paramstr(1));
reset(f);
a:=0;
while not eof(f) do begin
readln(f);
inc(a);
end;
close(f);
writeln(a);
end.Aihe on jo aika vanha, joten et voi enää vastata siihen.