Pascal/Turbo Pascal - Necesito ayuda urgente

program asignacion;
uses crt;
type
cedula = array[1..30] of longint;
nombre = array[1..10] of string[10];
edad = array[1..10] of integer;
promedio = array[1..10] of integer;
region = array[1..10] of integer;
acumulado=array[1..10] of integer;
total=array[1..10] of integer;
R1=array[1..10]of integer;
R2=array[1..10]of integer;
R3=array[1..10]of integer;
var
ced:cedula;
nom: nombre;
ed:edad;
ioresult,resp:integer;
i:integer;
prom:promedio;
Reg:Region;
tot:total;
acumR1:integer;
acumR2:integer;
acumR3:integer;
seccion1:integer;
seccion2:integer;
cursoA:integer;
cursoB:integer;
procedure registro_datos(ced1:cedula;no:nombre;ed1:edad;pro:promedio;re:region);
var
cedl:longint;
nombr:string;
ed:integer;
promed:integer;
reg:integer;
R1,R2,R3:integer;
total:integer;
begin
for i:= 1 to 10 do
begin
clrscr;
cedl:=0;
while (cedl<1)do
begin
REPEAT
gotoxy(10,07);write('CEDULA ');
readln(cedl);
until ioresult=0;
end;
gotoxy(10,08); write('NOMBRE Y APELLIDO: ');
readln(nombr);
gotoxy(10,09); write('EDAD: ');
readln(ed);
clrscr;
gotoxy(10,10); write(' REGION: ');
readln(Reg);
Begin
if ((Reg='1') or (Reg='2') or (Reg='3')) then

begin
clrscr;
repeat
if((R1=0) or (R2=0) or (R3=0)) then
begin
(R1):=R1+1;
total:=(acumR1*R1/100)
until R1>=10
end;
end;
end;
clrscr;
begin
repeat
(R2):=R2+1;
total:=(acumR2*R2/100)
until R2>=10
end;
end;
clrscr;
begin
repeat
(R3):=R3+1;
total:=(acumR3*R3/100)
until R3>=10

end;
end;
(Me aparece el error "26" en la linea de comparar las Reg='1' or Reg'=2' or Reg='3'

randle , lo q se puede ver a simple vista , no lo compile es q "(Me aparece el error "26" en la linea de comparar las Reg='1' or Reg'=2' or Reg='3' ) " porque para preguntar al ser de tipo entero va sin las comillas , no es un digito caracter, ocea hiria (Me aparece el error "26" en la linea de comparar las Reg=1 or Reg=2 or Reg=3). Saludos

Hola Randle.
Aún corrigiendo lo que te mensionó juan, veo que también tienes problemas en la línea 68:

total:=(acumR1*R1/100)
until R1>=10

Ten en cuenta que R1 es un array[1..10] y no uedes multiplicar acumR1 * R1
Solo podrías multipicar o dividir por ejemplo (acumR1*R1[2]/100) ya que R1[1] representa un solo valor numérico, en cambio solo R1 se refiere a una celda que contiene 10 valores numéricos.

Sigue postendo si tienes más dudas.

PD.
Es una buena idena siempre poner comentarios en tu programa para que cuando otra persona tenga que leerlos, los entienda con mayor facilidad (como en este caso).

¡Saludos!

18.-Algoritmo y diagrama de flujo para escribir un programa que calcule los N primeros múltiplos de 4 (4 inclusive), donde N es un valor introducido por teclado
y la prubea de escritoio urgent enviala a mi correo es para aoita