Dúvida num algoritmo em pascal

Program AlgoritmoDoVinicius;
var
	C: array [1..10] of string;
	D: array [1..10, 1..10] of real;
	i, j, k, l: integer;
	cid1, cid2, cidade: string;
	pos1, pos2: integer;
	inicial, inter, final: integer;
Begin
	write(''Escreva o nome de 10 cidades'');
	for i:=1  to 10 do 
	begin
		write(i,''-ésima cidade: '');
		for i := 1 to 10 do read (C[i])
	end;
	for i := 1 to 10 do
	begin
		for j := 1 to 10 do
		begin
			write(''Digite a distancia entre a"'', i,''-ésima cidade e '', j,''-ésima cidade'');
			write(''Caso não exista um caminho direto, a distancia deve ser igual a 0'');
			for i := 1 to 10 do read(D[i,j])
		end;
	end;
	repeat
		write(''Entre com o nome de duas cidades para saber qual a distancia entre elas'');
		read(cid1, cid2);
		k := 0;
		l := 0;
		for i := 1 to 10 do 
		begin
			if (cid1 = C[i]) then
			begin
				k := k + 1;
				pos1 := i;
			end
			else
			begin
				write(''Cidade 1 invalida'');
			end;
			if (cid2 = C[i]) then
			begin
				l := l + 1;
				pos2 := i;
			end
			else
			begin 
				write(''Cidade2 invalida'');
			end;
		end;
		if (k <> 0) and (l<>0) then
		begin
			inicial := pos1;
			final := pos2;
			while (D[pos1, pos2]=0) do
			begin
				pos1 := pos1 + 1;
			end;
			inter := pos1;
			if (inicial = inter) then
			begin
				write(cidade[inicial],''está interconectada a'', cidade[final]);
				write(''A distancia entre as duas é'', D[inicial, final]);	
			end
			else
			begin
				write(cidade[inicial],''não esta interconectada a'', cidade[final]);
				write(''Para isso, saia de'',cidade[inicial],''ate'', cidade[inter],'' e chegue em'', cidade[final]);
				write(''A distância de '', cidade[inicial], '' até'', cidade[inter], '' é : '', D[inicial, inter]);
				write(''A distância de '', cidade[inter], '' até'', cidade[final], '' é : '', D[inter,final]);
				write(''A distância de total percorrida é : '', D[inicial,inter]+D[inter,final]);
			end;
		end;
	until ((C[i]=''FIM'') and (C[i]=''FIM''))
End.