подправьте код программы сразу В НОВОМ ЧИСТОМ ЭКРАНЕ ОКНЕ ВЫВОДИЛОСЬ СОДЕРЖИМОЕ ФАЙЛА t.txt

[Kolyan56577]

подправьте пожалуйста код программы нужно ЧТОБЫ ПРИ НАЖАТИИ КНОПКИ 1 (1ТЕОРИЯ) сразу В НОВОМ ЧИСТОМ ЭКРАНЕ ОКНЕ ВЫВОДИЛОСЬ СОДЕРЖИМОЕ ФАЙЛА t.txt

var
  f:text;
  s:string;
  i:integer;
  Ch: Char;
BEGIN
  WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
  WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
  WriteLn(' 1. TEORIAя');
  WriteLn(' 2. OPROS');
  WriteLn(' 3. B6IXOg');
  WriteLn(' VIBERITE NYJNII VARIANT');
  ReadLn(Ch);

  if Ch = '1' then
  begin
     assign(f,'t.txt');
      reset(f);
      while not Eof(f) do
      begin
         readln(f,s);
         writeln(s);
      end;
   end;
end.

[ROMA2PVT]

Эт нормально а?
http://programmersforum.ru/showthread.php?t=105067
http://programmersforum.ru/showthread.php?t=105065
http://programmersforum.ru/showthread.php?t=105063

[Stilet]

 if Ch = '1' then
 clrscr;
  begin
     assign(f,'t.txt');

Эт нормально а?

Ну для автора видимо норма

[ROMA2PVT]

делаешь две процедуры.

TEORIAя
OPROS

и далее:

repeat
 clrscr;
 WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
  WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
  WriteLn(' 1. TEORIAя');
  WriteLn(' 2. OPROS');
  writeln('ESC выход');
  write('Ваш выбор: ');
 key:=readkey;
 clrscr;
 case key of
  '1': {первая процедурка};
  '2': {вторая проц.};
 end;
 Write('Нажмите Enter...');
 key:=readkey;
until key=#27;