Matematické Fórum

Ahoj,
potřeboval bych pomoci)´)
var a,b: string;

function cislice( cislo: string; rad: integer ): integer;
{ funkce vrati cislici na miste
rad }
begin { rad=0 .. jenotky, rad=1 .. desitky, atd. }
if rad>=length(cislo) then cislice:=0 { pro neobsazene cifry
vraci 0 }
else cislice := ord(cislo[ length(cislo) - rad ]) - ord('0');
end;

function plus( scitanec1, scitanec2: string ): string;
var i,M,mezisoucet: integer;
soucet: string;
begin
mezisoucet:=0;
soucet:='';
M:=length(scitanec1);
if M < length(scitanec2) then M:=length(scitanec2); { najdu delku
vetsiho }
for i:=0 to M-1 do { od radu jednotek do nejvyssiho radu co tam
je }
begin { scitam po
cislicich }
mezisoucet:= cislice(scitanec1,i)+cislice(scitanec2,i)+ mezisoucet
div 10;
soucet := chr( mezisoucet mod 10 + ord('0') ) + soucet;
end; { preteceni u nejvyssiho
radu, }
if mezisoucet>=10 then soucet := '1' + soucet; { musim pridat cifru }
plus:=soucet;
end;

BEGIN
write('Napiste 1. scitanec '); readln(a);
write('napiste 2. scitanec '); readln(b);

writeln( 'soucet: ', plus(a,b) );
END.
tento vzorec mám doplnit pro minus krát a děleno a vubec už nebím jak
pomužete mi prosím