Как вывести содержимое файла на экран в паскале?

[Fatality]

Подскажите пожалуйста, очень срочно нужно!

[SERG1980]

какого содержания файл?

[Fatality]

Вот:
uses crt; var f : file of integer; m,n,t,i,m1,n1: integer; begin clrscr; randomize; write('Enter n: '); readln(n); write('Enter m: '); readln(m); assign(f,'file.dat'); reset(f); begin rewrite(f); for i:=1 to 100 do begin t := random(40)+1; write(f,t); end; close(f); reset(f); end; m1 := 0; n1:= 0; while not eof(f) do begin read(f,t); if t=n then inc(n1) else if t=m then inc(m1); end; close(f); if m1>n1 then writeln(M,'(',m1,') chashe ',N,' (',n1,')') else if m1<n1 then writeln(N,'(',n1,') chashe ',M,'(',m1,')') elsewriteln(M,' i ',N,' vstrechayutsya odinakovo chasto (',n1,')'); readln; end.

[Stilet]

Var f:text;s:string;
begin
 assign(f,'файл');reset(f);
 while not (eof) do begin
   readln(f,s); writeln(s);
 end;
 close(f);
end.

[Fatality]

Stilet, спасибо! Как я понял это в самом начале проги пишется, а мне надо в самый конец после результата вставить. Можно этот код вставить туда?) (сорри за ламерский вопрос)))

[Stilet]

а мне надо в самый конец после результата вставить

Ниче не понял...

[Fatality]

:-) ну примерно так... мне нужно содержимое этого файла вывести в самый конец программы, т.е чтобы после получения результата(например М чаще Н), выводилось на экран содержимое файла

[Олвин]

Сообщение от Fatality

Вот:
uses crt; var f : file of integer; m,n,t,i,m1,n1: integer; begin clrscr; randomize; write('Enter n: '); readln(n); write('Enter m: '); readln(m); assign(f,'file.dat'); reset(f); begin rewrite(f); for i:=1 to 100 do begin t := random(40)+1; write(f,t); end; close(f); reset(f); end; m1 := 0; n1:= 0; while not eof(f) do begin read(f,t); if t=n then inc(n1) else if t=m then inc(m1); end; close(f); if m1>n1 then writeln(M,'(',m1,') chashe ',N,' (',n1,')') else if m1<n1 then writeln(N,'(',n1,') chashe ',M,'(',m1,')') elsewriteln(M,' i ',N,' vstrechayutsya odinakovo chasto (',n1,')'); readln; end.

Прикольно... Не, ну компилятор, конечно поймёт, но людей-то пожалейте!

[DM_bite]

:-) ну примерно так... мне нужно содержимое этого файла вывести в самый конец программы, т.е чтобы после получения результата(например М чаще Н), выводилось на экран содержимое файла

Ну выводите строку в самом конце работы программы.