Переделать программу так,чтобы массив заполнялся символами,потом каждый символ переводился бы в код таблицы ASCII. И в конце сложить эти массивы.

[anasttb]

var
s1,s2:array [1..250] of integer;
i:integer;
begin
writeln ('Первая строка: ');
for i:=1 to 250 do
begin
s1[i]:=random(10);
write (s1[i]:4);
end;
writeln ;
writeln ('Вторая строка: ');
for i:=1 to 250 do
begin
s2[i]:=random(10);
write (s2[i]:4);
end;
writeln ;
writeln ('Cумма: ');
for i:=1 to 250 do
write((s1[i]+s2[i]):4);
end.

[evg_m]

var 
  m: array[1..250] of char; // массив заполнялся символами,
const 
  alf: string ='01..9..........abc...z...';// а  КАКИМИ собственно говоря символами заполнять-то

r:=random(length(alf));
m[x]:=alf[ r+1 ]; //символ
v:=ord(m[x]); // и его код ASCII