MODULE ispis;
FROM FIO IMPORT File, Exists, Open, Close, EOF, RdStr;
FROM InOut IMPORT WriteString, WriteLn, ReadString;

PROCEDURE ispisF(ime: ARRAY OF CHAR);
VAR
  f:File;
  s : ARRAY[1..100] OF CHAR;
BEGIN
  IF Exists(ime) THEN
    f:=Open(ime);
    EOF := FALSE;
    WHILE NOT EOF DO
        RdStr(f,s);
        WriteString(s);
        WriteLn;
    END;
    Close(f);
  ELSE
    WriteString("-- fajl ne postoji --");
    WriteLn;
  END;
END ispisF;

VAR
  ime: ARRAY[1..100] OF CHAR;
BEGIN
  WriteString("unesite ime fajla:");
  ReadString(ime);
  ispisF(ime);
END ispis.