Нужно преобразовать программу из C в Pascal

[mrthesklyar]

На лекции преподаватель написал нам программу на C и попросил попытаться ее переделать на Паскаль. Криво косо вроде получилось, но компилятор freepascal после компиляции выдает 217 exitcode, что не так?
P.S. - В коде препода компилятор ругается на пару строк, с sIn, если не лень, гляньте что не так.
Вот на C:

#include <stdio.h>
#include <stdlib.h>
	
void Error (int, char*);
	
	int main ()
	{
		char*sIn="Ex0101.in", c;
		FILE*fIn=NULL;
		if(!(fIn=fopen(sIn,"r")))Error(1,sIn);
			while (!feof(fIn))
			{
                                 c=fgetc(sIn);
				putchar(c);
			}
		fclose(fIn);
		getchar();
		return 0;
	}
	void Error(int nError, char*sIn)
	{
		printf ("Error #%d!\nError opening file%s.\n", nError, sIn);
		exit (nError);
	}

А вот кривоватая реализация на Pascal с которой выкидывает при запуске на 217 ошибке.

Program Ex0101;
Uses CRT, sysutils;
var
fl:text;
str:string;
begin
        if FileExists('D:\Ex0101.txt') then
        begin
        assign (fl, 'D:\Ex10101.txt');
        reset (fl);
        read (fl,str);
        writeln(str);
        close(fl);
        end
        else
        writeln ('Ошибка: Файл не найден');
       readln;
end.

Можно кидаться тапками, первый курс

[min@y™]

Можно кидаться тапками, первый курс

А что прога делать должна?
Имхо, не надо переводить си в паскаль или наоборот, ибо написать с нуля будет быстрее и качественнее.

[mrthesklyar]

Программа должна проверить наличие файла, если его нет, то выдает ошибку, если есть, то открывает.
Я имел в виду, что есть программа на C и нужно чтоб на паскале программа делала тоже самое

[min@y™]

А где {$APPTYPE CONSOLE}?

если есть, то открывает.

А дальше?

[indexx]

А дальше видимо содержимое выводится на экран.

[mrthesklyar]

Сообщение от min@y™

А где {$APPTYPE CONSOLE}?

Эм что? не делфи, в инете на сайтах паскаля отрыл

Сообщение от min@y™

А дальше?

Ну в случае с паскалем у меня программа пишет содержимое файла в строку и закрывает файл, дальше просто по enter завершаем работу. А в случае с С как я понял открывает и всё

[min@y™]

не делфи, в инете на сайтах паскаля отрыл

Чем компилил?

Ну в случае с паскалем у меня программа пишет содержимое файла в строку и закрывает файл, дальше просто по enter завершаем работу. А в случае с С как я понял открывает и всё

Ну а нужно-то что?

[mrthesklyar]

FreePascal, писал же в первом посте.
Это всё, что нужно, больше программа ничего не делает, просто моя реализация на паскале работает хорошо, если файла не находит: выдает то что нужно, а если файл есть, то после создания билда выкидывает с exitcode 217

[mrthesklyar]

Проблема решена, только сейчас увидел тупую ошибку) в поиске файл 0101, а потом открыть прошу 10101))))
а с С проблемы точно, ибо VS ругается на sIn

[mrthesklyar]

Ладно, это-то всё работает, а можно как-нибудь реализовать сей процесс на чистом паскале, без делфи?