C# AND PASCAL ПЕРЕВЕДИТЕ КОД С ПАСКАЛЯ НА СИ ШАРП

program File32;
var
S:String;
F_in,F_out: File of Integer;
El,i,len:integer;

begin
Write('File1: ');
Readln(S);
Assign(F_in,S);

Reset(F_in);
len:=1;
while not eof(F_in)do
begin
Read(F_in,El);
inc(len);
end;
Close(F_in);

Reset(F_in);

Assign(F_out,'~'+S);
ReWrite(F_out);

i:=1;
while (not eof(F_in))do
begin
Read(F_in,El);
if i > (len div 2) then Write(F_out,El);
inc(i);
end;

Close(F_in);
Close(F_out);
Erase(F_in);
Rename(F_out,S);
end.

taisia2305    2   12.12.2020 19:29    2