[temned]

Program read; 
const 
voprosy = 20; 
var 
v,po,o1,o2,o3: array[1..voprosy] of string; 
c: integer; 



procedure read(t: string); 
var 
res : resource; 
byte,c,c1: integer; 
line,a1,a2 : string; 
f: boolean; 

begin 
res := openResource(t); 
if (resourceAvailable(res)) then begin 
a1:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; 
a2:='абвгдежзийклмнопрстуфхцчшщъыьэюя'; 

for c:=1 to voprosy do begin 
line:=''; 
repeat begin 
byte := readByte(res); f:=true; 
if byte<> 13 then begin 
for c1:=0 to 32 do begin 
if byte=(-64+c1) then begin line:=line+copy(a1,c1,c1+1);f:=false;break;end; 
if byte=(-32+c1) then begin line:=line+copy(a2,c1,c1+1);f:=false;break;end; 
end; 

if byte=(-88) then begin line:=line+'Ё';f:=false;end; 
if byte=(-72) then begin line:=line+'ё';f:=false;end; 
if f then line:=line+chr(byte); 

end;end; until byte = 13; 
byte := readByte(res); 
o3[c]:=line; 
end; 
closeResource(res); 
end; end; 

begin 
read ('/v.txt'); for c:=1 to voprosy do v[c]:=o3[c]; 
read ('/po.txt'); for c:=1 to voprosy do po[c]:=o3[c]; 
read ('/o1.txt'); for c:=1 to voprosy do o1[c]:=o3[c]; 
read ('/o2.txt'); for c:=1 to voprosy do o2[c]:=o3[c]; 
read ('/o3.txt'); 
end.

это задумка одного парня-чтение русских строк из