Перенести код из Pascal на C#

program Textfile;
uses Crt;
type Lis=record 
viddil:string[5];
plos:string[5];
char:string[25];
jarus:string[3];
element:string[5];
vik:string[5];
vysota:string[4];
diametr:string[6];
grupa:string[5];
klas:string[5];
typ:string[6];
povnota:string[5];
zapas_1:string[6];
zapas_2:string[7];
zapas_3:string[9];
dilder:string[4];
zahid:string[22];
end;
var
myfile, myfile_1,myfile_2, myfile_3:text;
mylis:lis;s1,s2,s3,s4,s5,s6,s7,ozn_1,ozn_2,ozn_3,ozn_4,ozn_5,ozn_6, ozn_7:integer; a:string; b:string[5];
viddil_save,plos_save:string[5];
k,len,len_1,rez, rez_1:integer;
begin
clrscr;
assign(myfile, 'F:\Data.txt'); 
assign(myfile_1, 'F:\Data_1.txt'); 
assign(myfile_2, 'F:\Data_11.txt'); }
assign(myfile_3, 'F:\Data_12.txt');
reset(myfile);
rewrite(myfile_1);
rewrite(myfile_2);
rewrite(myfile_3);
while not eof(myfile) do
with mylis do
begin
readln (myfile,viddil, plos, char, jarus, element,vik, vysota, diametr, grupa, klas, typ, povnota, zapas_1, zapas_2, zapas_3,
dilder, zahid); 
val(vik,s1,ozn_1);val(vysota,s2,ozn_2);val(klas,s3,ozn_3);val(dilder,s4,ozn_4);
val(zapas_1,s5,ozn_5); val(zapas_2,s6,ozn_6);val(viddil,s7,ozn_7); 
if (ozn_7=0) {and ((ozn_1=0) or (ozn_2=0) or (ozn_3=0) or (ozn_4=0) or (ozn_6=0) or (ozn_5=0))}
then begin viddil_save:=viddil; plos_save:=plos end;
if (ozn_1=0) or (ozn_2=0) or (ozn_3=0) or (ozn_4=0) or (ozn_6=0) or (ozn_5=0) then
begin
 rez_1:=0;
 len_1:=length(char);
    for k:=1 to length(char) do
    begin
    if (char[k]=' ') and (char[k+1]=' ') and (char[k+2]=' ') then
    delete (char, k, len_1-k)
    end;
 for k:=1 to length(char) do
    begin
    if char[k]=' ' then
    rez_1:=rez_1+1
    end;
    if rez_1<length(char) then
    begin
writeln (myfile_1, viddil,';', plos,';', char,';', jarus,';', element,';',vik,';', vysota,';', diametr,';',
grupa, ';',klas,';', typ, ';',povnota,';', zapas_1, ';',zapas_2,';',zapas_3,';', dilder,';',zahid)
end
else
begin
char:='';
writeln (myfile_1, viddil,';', plos,';', char,';', jarus,';', element,';',vik,';', vysota,';', diametr,';',
grupa, ';',klas,';', typ, ';',povnota,';', zapas_1, ';',zapas_2,';',zapas_3,';', dilder,';',zahid)
end
end
    else
    begin
    writeln(viddil_save);
    a:=concat(char, jarus, element, vik, vysota, diametr, grupa, klas, typ, povnota, zapas_1, zapas_2, zapas_3,
    dilder);
    len:=length(a);
    for k:=1 to length(a) do
    begin
    if (a[k]=' ') and (a[k+1]=' ') and (a[k+2]=' ') then
    delete (a, k, len-k)
    end;
    rez:=0;
    for k:=1 to length(a) do
    begin
    if a[k]=' ' then
    rez:=rez+1
    end;
    if rez<length(a) then
    begin
    writeln (myfile_3,viddil_save,';',plos_save,';',a{, '':25,';', '':3,';', '':5,';','':5,';', '':4,';', '':6,';', '':5,
     ';','':5,
';', '':6, ';','':5,';', '':6, ';','':7,';','':9,';', '':4,';','':22,';'});
     end
     end
     end
end.