Перевод из Паскаля в Дельфи

[eldarik]

Не могу перевести проект паскаля в Дельфи

uses crt;
VAR
fIn, fOut: Text;
S,S1,S2: String;
i,n:integer;
A:array[1..26] of string;
BEGIN
Cls;

for i:=65 to 90 do begin
A[i-64]:=chr(i);
end;

ASSIGN(fIn,'d:\Text.in');
ASSIGN(fOut,'d:\Text.out');
RESET(fIn);

WHILE NOT EOF (fIn) DO BEGIN
READLN(fIn,S);
END;

For i:=1 to length(S) do begin
S1:=UpperCase(copy(S,i,1));
for n:=1 to 26 do begin
if S1=' ' then begin S2:=S2+' '; break; end
else if S1=A[n] then begin S2:=S2+IntToStr(n)+','; break; end;
end;
end;

ReWrite(fOut);
Writeln(fOut,S2);

Close(fOut);
Close(fIn);
END.

Задание: составить проект заменяющий символы в файле Text.in соответствющими цифрами в алфавитном порядке в файл Text.out.

[_Dmitry]

Файлу с программой установите расширение .dpr
Программа:

{$APPTYPE CONSOLE}
uses SysUtils;
VAR
...........................

[Chudo4258]

По-моему проще всего скопировать код (Ctrl+C) открыть Делфи и вставить, но в Delphi по-моему вместо Assign надо AssignFile соответственно и CloseFile

[val_nnm]

Вот проэкт на Delphi 7.

[eldarik]

Спасибо всем, особенно val_nnm, очень помогли, СПАСИБО))))

[Сергeй]

> очень помогли

Медвежью услугу тебе сделали, а не "очень помогли")

[eldarik]

чем это? все работает

[Сергeй]

Так препод же тебя первым же вопросом поставит раком - а почему это так и почему это сяк)

И что ты ему скажешь ?)

Ты же ни в зуб ногой)

А был бы в зуб - и вопроса бы этого не было)))

[eldarik]

ну всё я не смогу объяснить конечно, но попытаюсь))) и вообще я новичок, стараюсь учится на примерах