Задание с нетипизированным файлом

[Василий15]

Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора WHILE. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.

const bufsize=2;
var f, g: file;
       s: array[1..bufSize] of char;
begin
 assign(f, 'c:f.txt'); 
 reset(f, bufsize);
 assign(g, 'c:g.txt'); 
 rewrite(g, bufsize);
  while not(eof(f)) do
   begin
    blockread(f, s, 1);
    blockwrite(g, s, 1);
    write(s);
   end;
 close(f); 
 close(g);
end.

Ругается на первый reset. Пишет, что нет перегруженной подпрограммы с такими типами параметров.

[Василий15]

Крч ругается и на rewrite и на blockread и на blockwrite. "Нет перегруженной подпрограммы с такими типами параметров" (rewrite) и "Неизвестное имя" (blockread, blockwrite).

[FPaul]

Если PascalABC.NET, то почитайте справку по ссылке.

У него какая-то своя логика работы с файлами, далёкая от привычного стандарта.

[Василий15]

В ТП тоже ругается на ресет. Пишет, что путь не найден, хотя нужные файлы созданы и прописаны кошерно.

[ZX Spectrum-128]

Путь покажите, который вы прописываете.
Если тот, который указан в программе, то кто позволит Турбо Паскалю ковыряться в корне диска C.

[Serge_Bliznykov]

 assign(f, 'c:f.txt');

к тому же, такой путь лучше вообще НЕ ЗАДАВАТЬ!

Это не корень диска C:, это ТЕКУЩИЙ каталог на диске C:

Задайте короткий (формата 8.3) корректный полный путь к вашему файлу.
Например,

assign(f, 'c:\tp\pas\f.txt');

и всё у Вас получится!

[Василий15]

Давал множество путей - результата нет. Так же ругается на ресет.

[Serge_Bliznykov]

покажите, пожалуйста, скриншот с ошибкой.

[Василий15]

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

покажите, пожалуйста, скриншот с ошибкой.

скрин

[Serge_Bliznykov]

думаю, что проблема в настройках Dos Box (какой каталог там подключается через mount в качестве диска C:

Можно не заморачиваться!
Вы знаете, где у Вас реально лежит lol.pas?
Вот положите свой файл рядом и напишите

 assign(f, 'f.txt'); 
 reset(f, bufsize);
 assign(g, 'g.txt'); 
.....