Fórum leitura de arq txt .... #190157

para ler o arquivo:

procedure learq;
var
arquivo: textfile;
linha: string;
begin
assignfile(arquivo,´seuarq.txt´);
while not eof(arquivo) do begin
readln(arquivo,linha);
// agora vc teria que tratar a linha procurando por espacos
// para pegar palavra por palavra. usa a funçao pos(´ ´,linha) para
// localizar os espaços.
end;
end;

Espero ter ajudado.

Carlos Klein